o 

Q 
CD 
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YAHTZEE surFX702k 



Autre nomdujeude yam's bienconnuleYAHTZEEpeutsejouerseul 
oua plusieurs. votre FX702P vous servira de terrain de jeu et assurera 
le respect des regies et le decompte des points. Vous pouvez jouer 
seul ou 3 deux. 

Frederic HOUROU 



LIST 

5 VitC :)="I23456B 
CfP6i!tl":«fl!T 
|:IH? "H JOUEUR 

5 FOB 11=1 TO 13 

? FOR M TO ZtPD 
T P;"ER J.":6SE 
408 

3 S=9:F08 M TO 

!9 FOR 1=0 TO 4: IF 
»C1)=J!«!!>=!H 
T (fflHWI 
IS PRT CSR I*2;RCI 

K.'HRT IMF US 

iiPRT CSR !2i"C 

2S B=ttT!lF B=™ 

T H-rt 20 

25 FOP 1=1 TO ISM 
FK»«I!ID!I,1>IN 
EST 1:6011) 28 
3t IF l££ THEN 48 
31 If IU2 THEH 47 
35 IF !=I5MF K=l 

Tie 28 
35 6010 !<16»38 
43 IF fi<3:PRT CSR 

1*2-1!' "ssnci- 

l)=8*l:SOT0 2 



43 SOTO 64 
«FKJ=i TO 3: IF 

n<j)>8(j»i!;a= 

fl!Jt!)iS<J+li=f> 

i!):B(J)=8:R=; 
43 HEXT JSIF Mil 

=9: SOTO 47 
4'; IF MS! IF Hit 

THEH 55 
33 ¥=8: FOR .'=8 TO 

3MF !HT IK MS 

-ilf! fi(J)=l;V=V 

tliKXl J 
5! IF VMMF l=lil 

S=48:60T0 54 

52 IFVMJIF 1=18! 

s=3«! am h 

53 iFR=8iR=2i6=V: 
WsHKT J 

54 IF **6=3MF 1=1 

?:;=:8:s:'o u 

55 lt=8:V=8:6=8:l.=8 
:SS6 58MF K=8 
THEH 62 

56 IF rt=5iIF liTil 

F Mi THEH 63 

57 IF NSlF I=9iS 
=2516010 64 

58 IF r1<4!lFR>3;! 
F 1=7 THEH 63 



58 IF H=6!IF 1=121 
^=59:8010 64 

t. . "=6MF U7M 
F 1<8 THEH 54 

62 3=35: SOTO 64 

63 S=R9*ftl+ft2+H3+H 
4 

64 SOTO 458 

78 IF V=liIFW!L 

=I:V=8:RET 
71 RET 

99 FOR J=8 TO 3! IF 
IHT H(D=IHT 8 

T J:6SB 78 
31 IF K4SIF V;3!K 
=V+2:RET 

53 IF V=2i6=2:V=e: 
IF J(4iHEXT J 

91 IF S=2;H=3MFL 
=1S|M 

95 IF G=2!RET 

96 IF V=1!IF L=8M 
F J(3:L=l:V=8:H 
EXT J 

97 IF J<3,HEXT J 
53 RET 

168 EOTO 63 
178 PRT CSR lli"t*! 
NEXT ft: EOTO 28 

Suite page 6 



Ca bouge dans les chaumieres, il 
y a du divorce dans I'alr ! Figu- 
rez-vous que Monsieur IBM et 
Madame FNAC. autrefois fiances, 
ont brusquement rompu. Mada- 
me FNAC. par I'intermediaire de 
son directeur genera!, repro- 
chait a Monsieur IBM d'etre un 
peu trop megalomane et es- 
sayait de lui expliquer ce qu'est 
la distribution de produits grand 
public en France, mais Monsieur 
IBM s'appuyait sur ces succes 
en materiels professionnefs et 
ne voulait rien savoir. Resultat — 
pas d'l8M a la FNAC, lisez ('edi- 
torial de CONTACT, le journal de 
la FNAC, ca vaut son pesant de 
cacahuettes. Dans la foulee 
vous apprendrez que I'lBM PC 
Junior ne sera pas commerciali- 
se en France, ce qui est plutdt 
une bonne chose vuleprixprevu 
pour cet engin qui n'avait pour 
seul avantage que celui d'avoir 
une etiquette IBM, et une eti- 
quette a environ 10 OOO francs ! 
Madame Hachette, elle, se dis- 
pute avec Monsieur APPLE. 
Monsieur APPLE reprochant a 
Madame Hachette de mal faire 
le menage dans ses boutiques et 
de ne pas assez bien presenter 
ses beaux APPLE II. lie, lie et au- 
tres Mac'. Madame Hachette a 
beau essayer d'expliquer qu'il 
existe d'autres ordinateurs qui 
ne s'appelle pas APPLE, Mon- 



sieur APPLE ne veut rien savoir. 
le divorce n'est pas encore con- 
somme, mais les signes avant- 
coureur sont mquietanls. non ? 
Surtout quand on connait le 
mauvais caractere de Monsieur 
APPLE qui a le proces facile et 
qui fait interdire plus d'une imi- 
tation deson mepuisabfe APPLE 
II. Tiens. au fait, il y a un tresjoli 
petit ordinateur qui a I'air com- 
pletement compatible avec le 
lie. qui s'appelle LASER 3000. 
qui coute dans les 8500 trancs et 
qui eta it sur un stand a Micro-ex- 
po avec toutes les autonsations 
necessaires. Apple commence- 
rait-il a laisser faire ? 



Deux nouveautes cette semame 
dans le Soft-parade et deux logi- 
ciels de tres belle qualite qui 
montrent bien la tendance de 
sophistication extreme qui est 
en train de s'instaurer dans ce 
domaine. une bonne chose I 

Gerard CECCALDI 



MENU 



MANDR1X 



APPLE II Batailte nuclease 

Jean-Yves POCHEZ Page 18 

CANON X 07 Le tnposaujathlon 
""Timanuel BAST1DE Page 14 



EDITO 



Si la foule a envahi notre stand 
du Sicob, le salon Micro-expo de 
cette semaine a ete particuliere- 
ment caltne. Peu de visiteurs. 
peu de nouveautes. le Sicob a 
tu6 micro-expo. Encore une fois, 
le combat de David et Goliath a 
tourne a I'avantage du plus 
grand, il n'y a guere que dans la 
bible que la legende se venfie I 
L'annee procliaine les exposi- 
tions vont peut-etre s'en aller 
vers la banlieue (Villepintc ?) et 
la bataille sera alors relanceo. 
esperons que Micro-expo n'a 
pas d'ores et deja perdu la 
guerre. 



LES CONCOURS PERMANENTS : 

10 OOO francs de prix au meilleur programme CHAQUE MOIS. 
1 voyage en Californie pour le meilleur logiciel CHAQUE TRI- 
MESTRE (Reglement en page interieure) 



CASIO FX 702 P 

Frederic HOUROU 

COMMODORE 64 

Thierry FISCHER 

VIC 20 

Philippe BOICHUT 

DRAGON Trailement de texte 

AmaraCONTE Page 4 

HP 41 Letoumis 

Andre FREDLICH Page 13 

MPF 11 Carnet d'adresse 

Vincent Dl SANZO Page 8 

ORIC 1 Boite noire 

GUIRAUD Page 15 

MZ80 Super glouIOl 

Christian SANNER 

PC 1251 

Alain GOURNET 

PC 1500 

Jean-Luc LYCZAK 

ZX81 

BOUGI 

SPECTRUM 

Patrick TADEUZ 

TRS 80 Progr 

Luc WEYNACHTER 

Tl 99/4A (b S ) 

Jean-Luc MOUQUOT 

Tl 99/4A |b e ) 

Stephane BONAZZA 

THOMSON T07 Isoplctor 

Marc RAYNAL Page 1 7 



Yahizee 

Page 6 

Neptune 

Page 3 

Helicopter pilot 



Page 2 
G os lock 

Page 3 

Poht tram 
Pago 9 
Supe'crdoi-v 

Pago 16 

Del. ma In 

Page 19 

legestion 

PagoS 

Galactica 

P.-mr-h 

Phobia 



DES PROGRAMMES POUR VOTRE ORDINATEUR : APPLE II ET HE 
CANON X-07. CASIO FX 702-P . COMMODORE 64 ET VIC 20 . 
DRAGON . HEWLETT PACKARD HP 41 . MULTITECH MP - F II . 
ORIC1. SHARP MZ, PC 1251, PC 1500. SINCLAIR ZX 81 ET 
SPECTRUM. TANDY TRS 80 . TEXAS TI-99/4A . THOMSON T07 

HIPPOREBUS Irouvez I'expression qui se cache dans la B.D de I'hippocampe Decompose en trois syllabes dans les trois premieres cases, le "lout" a evidemment un rapport avec I 'informatique 
(solulion en page interieure). 



3MfloU3tri(J TL3TUOT3.1T 3 



i ^ 
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Allemagno 3.50 DM - Belgique 55 Frs - Canada 2.50 $ - Luxembourg 57 Frs - Suisse 3 Frs • 



SUPER GLOUTON 



LeprincipedujeuestceluidecelebrePACMAN. Lejoueur 
(O) se deptace dans un labyrinthe, poursuivi par un 
monstre ( Q ) qui cherche a le devorer. Dans ses deplace- 
ments le joueur "mange" tes points qu'il trouve sur son 
chemin et augmente ainsi son score. Par ailleurs il y a en 5 
endroits differents du dedale, des fraises ( @ ) qui, si elles 
sont rnangees par le joueur, rendent le monstre blanc, ce 
qui permet au joueur de devorer le monstre et d'augmen- 
ter son score de 100 points. 

Christian SANNER 

Mais, attention ! La duree pendant laquelle (e monstre est vulnerable 



•1 -MJ-Mt^BiRtTTURW 



estli 



1 1 tee. 




2959 AD-4iE2-9:My-9. : 'fM->l 
2666 C-"£Elf(M!-a», 
2979 IF<<C<)129>MCOl21 >• 
>29>) TKEH 2199 
299B IF El— 1 TWO! 2919 

2999 E2-I i at nb GOTQl ?7B , 1 939 , 2999 ,291 9. I 929 . 1 979 
Z1BB AO-3:E2=8: TM-YM- I .MX-8 .M2**1I -48 !p£7UPN 
2118 REH RENCONTRE PIONVHOMSTRE 

21 28 REM 

2138 El-9tE2=8;MX-e ; M.-8 

2148 IF 2-1 THEN 22*9 

2159 REM MONSTRE rvrfiCE P10N ■>•■•■■•■ 

2148 POKE M2,297:POKE Ml,R2tF0R I-l TO 399.NEXT 1 

21 ?B FOR U-1 TO 2 

2188 POKE M2,71:F0R 1-8 TO 25. POKE 4Sl3,l!POKE 431 4 , 1 iUSR< *8> -NEXT I 

2198 POKE M2,74:FOR 1-B TO 25tPOKE 45I3.ItPO*E 451 4 , I sUSR'48 > .NEXT I .U 

2299 POKE M2,267:FDR I = 1B9 TO 253-POKE 45I3,I:P0*E 45M , I iUSR<68> .NEXT 1 

2218 USR<71> 

2228 IF P-8 THEN 2519 

54224*P,8:P-P-| 
2248 X-28:Y-t2!pl»537-ia:P2-53743:El-9:E2.9:MX-9iMY-9:MI-t12 
2258 R2»fl:P0KEM2,8:G0TO 346 
22*8 REM PI ON fWiGE MONSTRE •••-••••• 
2278 IF PEEKIP2>-219 THEN DP-DP-1 :S':=SC* 1 

2298 POKE M2,72:IF PIOM2 THEN POKE Pl,9:POKE M1.P2.-FOB I-l TO >89:NEVT I 
2296 POKE Ml ,R2iFOR i-l TO 398:NEXT I 

23B8 POKE H2, !87;MUSIC*C6D9E9F8G8* .FOR I-l TO 168:NEXT I 
2318 POKE H2,72:2=9:AH-297:PI-H2 

2328 SC-5C*!88:P0KE 4444,24:P0KE 44-.5.89 .PRINTSC i 
2338 AL=RNO<RND*.RNP( .12345) >» 



code ASCII 


symboles 


208 


□ 


205 


□ 


221 


□ 


206 


□ 


224 


B 


253 


ED 


129 


EB 


64 


w 


123 


D 


103/104 


e 



2348 IF ALO.23 THEN 2438 

2358 IF AH-.58 THEN 24 18 

2369 IF AL<-.75 THEM 2398 

2378 REM HAUT-GAUCHE 

2389 VM-1 :YM=2:M1=53329:GOT02456 

23*8 REM HAUT-DR01TE 

2499 XM=38:YM=2:M1»53366:G0T02438 

2419 REM BAS-OROITE 

2428 XM=38:YM=-22:M1=54886:GOT02438 

2438 REM SAS-GAUCHE 

2448 >M=l :YM=22:MI-54649:GOT02439 
2459. IF PEEK<M11<>72 THEM R2-PEEKIMI 

2466 POKE Ml ,AMtGOT03*9 

2478 PEM TEMPO. 1 

2439 FOR 1=1 TO T] :N£XT I [RETURN 
2498 REM TEMPO. 2 

2589 FOR I-l TO T2:MEXT I : PET URN 

2519 PEM FIN OU JEU 

2529 REM 



Pour aider lejoueur, le labyrinthe possede 2 issues (a gauche et a droi- 
te). que le monstre ne peut emprunter. Si le joueur sort du labyrinthe 
dun cote, il reapparait de I'autre. 

La vie du joueur est limitee a 3 pions, alors que les monstres eux sont en 
nombrelimite. 

Danslecas ou lejoueur a absorbe tous les points du dedale, lejeu se 
reinitialise en cumulanttoutefoisle score. (Danslebasdel'ecranadroi- 
te. apparait un (anion " " pourchaquejeu complet reussi). 
En ce qui me concerne je dispose de i'option 4MHZ ce qui double la Vi- 
tesse d'execution du jeu (debutant s'abstenir), mais celui-ci reste tres 
attrayant en fonctionnant a 2 MHZ. 
Les touches utiles au deplacement sont :FTHB. 
N.B : II est primordial d'utiliserpour le trace du labyrinthe un nombre li- 
mitede symboles semi-graphiquesdu MZ80K. Pourevitertoute confu- 
sion lors de la reprise du listing il peut etre utile de se referer au tableau 
Le listing est celui de la version compatible VM5060. Les modifications 
a faire. dans cette version pour I'adapter au 5025, sont les suivantes : 

- Debloquer la fonction PEEK : POKE 10167.1 2549 print- „. 

- En hgne 460 remplacer KEY AS par : GET AS :AS -CHRS (PEEK 2558 print- - ■ m. ■- 
(17828)} 25«9 print- i-a - rKB 

- En option on peut accelererl'affichage faire- --. ^rtw 2579 print- - ■ ■ •«- 
POKE 15739,0 Mf jjjJ rt ■» 'Htl * R !T ■ ■ ■ ▼ 

TOKE ,57400 It II M YSY 1 HZ PR NT 

poke 15741.0 lUl^. O v £?jj;.e- rs : : : 

etretour a la normal faire: POKE 15739,205 If 1*^ 2429 print- ■ ■ a ■ - 

POKE 15740,166 26S*j print- ■ ■ ■ ■ 

POKE 15741.13 244e print- -^ yjj, . 

1129 PRINT', . 2d5B PRINT ' 

use print- 1 - ;.! Itit ™«* ■■■■■■ 

1148 PRINT' ■ , .*, .-, .. 267J PR NT- - . pj ,- 

I1?e print- i- . ■ • :...' "68 print- a warn ■ ■- 

48 W-r ■••^-"I ,T^.. ; . .' 269» print- ■ ■ ■ a ■■ 

*e pp nt« a 1-. .- -1 • ■ • V, : 2 7 «e print- -w pjh -aw" 

tVll PR T- - -I \.\. ..',.; ''"I 1 = ""» R EM FANIONS 

1219 PRUJT- (• I |* I |« |» r ,• , — ,• (• 1 I* (I I I 2756 REM 

1239 p^Imt^'---' '■'•''.'.', "?.'\ \'.?.'. ■ "■"'.'''.' Z768 F-' : *l I DP-33B I X-28,Y-12 1 PI-3374e i P2-PI 

Ml M1W' ' - • -J • . .' 2776 MX-8,Hr-9 ! »2-2l9 1 ;-6 1 AM-297 

:;' „'""■ .•<■*■! r ^ i*n*. .* r-, 2239 gosub3529 

.til pp ,rT- • - • - ,,.,,. .' • 268e P0KE 4 ^*.23iP0KE 4465.39-1 .PR1NT-W; 

,,,,. pi',,'.; ;. ' '. ■ ' " ' ■ ' : 2ei« POKE 44o6.24:POKE 44«3.3y-| >PRINT-| •; 

™ 1 T~^ ''ll'l '-I-: 2829 NEXT I 

I T9» PRINT- I "-a •■• 11 ,-, ; j- . 2B3e F0R |„ 1I0 | eee . NexT , 

i!- Ji 1 .'"-,'. . ^~ — ~~ \\ ' ' '* ' ' '* ' '" '*' 2BA * lF F "'* 00T025I9 

1310 1- N . 1 ) 1 1 ■ 1 ■ 1 1 1 • I 1 ■ 1 - . 2e5B return 

»m P o'lir' ' '"' 29<9 RE>I 

I 33fl <-RJNT" ■ ,.. 2Q7e REM GENEB[0lJE 

134i- GOSUB1&78 280e RQ1 

1339 RETURN 2gpe PRINT'C* iPOKE 44<S«, 1 8 iPOKE 4465.89 

1 )69 REM 2pea F0B ,_, Tn ,, 

1378 REM TRACE DU LABYRH 
REM 



279 PRINT-Cl 



^INSTRUCTIONS? 



2g« 6ETA*:IFA*--0*G0Sue2379:r-,r,TOi2ii| 

299 IF A*--N- &0T0328 

399 GOT 0239 

319 PEM 

329 PEM 1NITIALISATJON 

338 REM 

349 TEMPO 7:F-e:P-2:S08 

359 Tl~689:T2=988 

369 "•29;V-|2;XM~l :TM*2 

373 PI -53749 :M1-S332?:R2=2! P:P2~5374e 

388 El-e:E2-8:MX-8:MY-9:2.e:AM-297 



"I1-53329IXM-I :TM-2)EI-8tE2-6 



398 DP-338 
488 REM CHOI 
418 REM 



TRACE DU LABYRINTHE 



429 GOS'J93329 

439 REM 

449 REM BOUCLE 

469 KEY A* 

478 GOSUB599 

468 G0SUBI779 

498 IF P2.pi THENPOKE PI , 72:G0T0539 

589 C-PEEK<P2>:P0KE P2,72 : PGKE P1.9-PI-P2 

338 IF TI»--89B818' THEN 2-6 :AM-297 

549 IF <P2-*1|>.CP2^| 2> G0T02118 

539 Rl-PEeK<M2 )! POKE M2,AM!P0KE M[,R2:M1^12 

548 IF OP-e TME/JG03UB2749 

379 COT 04 4 9 

589 REM 

599 REM TEST £T CALCULS OEPL. PIQN 

488 REM ' 

419 IF A*--T- TMENC-PEEK<PI-48> :GOT0668 
428 IF A*--B- THENC-PEEKCP1.48) iOOT0499 
639 IF A9--H* THENC-PEEr.\-pH-l> :GOT0729 " 
448 IF A9--F- THENC-PEEKt PI - [ / iGOT0748 
639 RETURN 



1 398 DP-DP* I :PRIN 

14B9 PRINT*, 

1416 PRINT* !*••■• 

1428 PRINT- I- | 

1438 PRINT* | 

1448 PR 

1458 PR 

1468 PR 

1478 PR 

I486 PR 

1498 PR 

1568 PR: 

1519 PR 

1528 PR 

1538 PR 

1546 PR 

1538 PR; 



>I29> 



>12l I 



>?2>i 



>93>- 



>28 



) *C C< > 29) > THENG0T0689 
679 RETURN 

489 r-T-l iP2-PI-49iRETURfl 

499 !F<(COI2B)»<C012! ) «<C<)92> »(C<>93) »<C<>28 
)»(C<>29>)TMENG0T0719 
798 RETURN 

719 y-Y*liP2-Pl. 49. RETURN 

729 IF<(COI29>«<COI2I)«(C<>92)«(C<>93)*(C<>28 
^■<CO29)>THENG0T0746 

738 RETURN 

749 X-X.l [P2-PI.1 ilF P2-33747 THEN P2-33729iX-! 

739 RETURN 

749 IF'<C<>l28)«<C<>121>-(C<>92)»(C(>93).(C<>2e 

>"<C029j >THENG0T0788 

778 RETURN 

789 X-X-l (P2-PI-I ilF P2-33728 THEN P2-33746:X.38 

796 RETURN 

898 REM 

819 REM TFWCE OU LA8YPINTME I 

829 REM 



1686 PR 



P0KE43l4,AiP0KE43l3,BiUSR<68)iNEXT t 



tNEXTA 



i r i. 1 

II* I 1 3 

II" II* . 1 



NT' 



•I 1P0KE4466, 24! PRINT • Q m ■. 



988 PRINT* I 1 






1628 G0SUBI676 

1638 RETURN 

1649 REM 

1638 REM TRACE JOUEUR ET SCORE 

1468 REM — — 

1678 FOR I-l TO P 

1688 POKE4463.16 

1496 NEXT I 

1788 POKE4443,4:P0kE4464,24[PRIN 

1716 FOR I-l TO 18 

1728 P0KE54772.7I iMUSIC'EBOe* 

1739 P0KE54772,74iMUSIC*08E8- 

1 749 NEXT I 

1738 P0KE34772.71 

1 748 RETURN 

1778 REM TEST ET DEPL . MONSTRE 

1 788 REM 

1799 IF EI-! THEN1836 

1886 IF E2-1 THENI976 

1818 IF ABSCX-XM)>A88f T-YM) THEN 

1826 AC— 2iQ0T01978 

1836 IF X-XM THEN MX- I lOOTOl 928 

1848 IF MX- I THEN 1928 

1B38 IF X)XM THEN 1878 

1868 GOTO 1926 

1878 C-PEEXfMH 



IF(<COI29)< 



948 I 



MNT* 



938 PRINT* 
968 PRINT*-, ■- 
976 PRINT' I-" 
988 PRINT- |- P 
998 PRINT* |* i- 
1888 PRIrfT* I* 
1618 PRINT" I* 
1828 PfiU-fT 13 
1939 PRINT- |* 
1846 PRINT" J* 
1858 PRINT* i— 
1949 G0SU8I67: 
1979 RETURN 
1688 REM 



'THENI 
1899 IF E2- 
1998 El 



19 



ON * 



<C<>92>"(C<>?3>' 



,2888,2819,1929, 1878 



2918 READ A*iPRINTA*| 

2928 F0RA.lT038STEP5i8.APSU 

2939 NEXT I 

2948 DATA •,•,»,* * ,S,U,P,E ,R.- ,G ,L ,0,U,T ,0,N, * *,•,• • 

2939 USR(71) IFORR-I T0488 iNEXTR 

2948 F0RS-IT018iP0KE 33468* <( S-l ) »46> , 49 

2978 F0RA-AT0S>23.3iB-Aes<A)iP0KE43l4,83iP0KE431 3,8iUSR(< 

2988 A-23.3»SiNEXT S 

2998 POKE 34628, 12iUSR(71> 

3868 A*-*a89FttaR9-iB*-*«F8FGR9- iTEMP07i FORP-l TO I 88 iNEXTR 

3818 FOR 1-54988 TO 34168 STEP 1 

39 29 MUSIC A9 

3838 POKE I,287iP0KE 1-1,8 

3946 MUSIC B* 

3838 NEXTI iA»--D9"C90R2- IS*-- MC8C0R2- 

3949 POKE 34848,93 

3878 FOR 1-54188 TO 33628 STEP-49 iPOKE I ,9 tP0KE< I -49) , 297iPOKE< I -88 1 , 93 

3888 MU9IC At* i POKE! I -1 26 > , 1 2iMUS!C B*iNEXT I i POKE (1-48), 9 

3898 FORI-! T07(POKE33588. 287. FORU-IT059.NEXTU.POKE333ee,73iF0RU-!TO99 1 NEXTU 

3198 NEXTI 

3118 F0RI-IT04.POKE 33588* I , 287.P0KE 53587* I ,8 .MUSI C*C608E9C8 * tNEXTI 

3128 F0RI-1T04.P0KE 33392-( I -46 ) ,267(P0KE 33632-< I «49 > , 9 .M1JSIC"X809E9C9* 

3139 NEXTI 

3146 F0RI-IT04.P0KE 33432-1 , 297iP0KE33433-I ,9 .MUSICC9D9E9C9- .NEXTI 

3136 POKE 33468,31 

3168 FORI-53428 TO 33348 STEP46IP0KE I,6tP0KE I *48 , 287iP0KE 1*89.31 

3178 MUSICB9IP0KEI. 129, 12. MUSIC A9(NEXTI 

3188 A«-*G9«FttGR9* .8*-- ■F8FGR9 - .TEMP07iP0KES362B, 9 .FORR-I TOI 39 iNEXTR 

3199 FOR 1-53389 TO 33697 STEP 1 
3288 MUSIC A* 

3218 POKE I.287.P0KE 1-1,8 

3228 MUSIC 89.NEXTI 

3238 POKE 53667, 6 . FORR-I T0268 tNEXTR 

3249 PRINT-C..-..UN OLOUTON EN FORME DE O PARC0URT1* 

3258 PRINT* UN LABYRINTHE ,EN EFFACANT 0E8. * 

3249 PRINT-POINTILLES SUR SON PASSAGE. I" 

3279 PRINT* PLUS IL EN MANGE PLUS VOUS GA0N621* 

3286 PRINT* DE POINTS. WTRE ADVERSAIRE EST UN** 

3298 PRINT* MONSTRE * '.P0KE33497, 28 7iPRINT* OUI CHERCHE A VOUS MANSER..* 

3388 PRINT- VOS ALLIES SONT DE8 S.ILS VOUSt * 
3318 PRINT' PERMETTENT DE CROOUER LE MONSTRE TANT." 
3328 PRINT* QUE CELUI-CI EST BLANC." 

3338 PRINT* (*.***.**■*.*****«■*+ + ■*+ + -/-* 

3348 G£TA*!lFA«---0OTO3348 

3338 PRINT-Ci-'-'LES COMMANDE9 SONTii* 

3368 PRINT* f" 

3379 PRINT 

3389 PRINT- T* 
3399 PRINT 

3488 PRINT* ► F H ■** 

3418 PRINT 

3428 PRINT* B* 

3438 PRINT 



1*1 lMY-6iM2-M!.| .RETURN 
>I21 )"(C<: 



I REM TRACE DU LABYRINTHE 
REM — 



'19 C.C/-4H [-•*:. 

1928 OPEEK<Ml- 

1938 IF((COI28 
>29))THEN 1969 

1948 IF E2-I THEN 1878 

T938 et-HON AD 00101978,(836.2888,2819,1928,1373 

lot! rt &- 5,E1 - fll ^ M - XM ^ 'M-f-8 l M2^1I-l,PETURN 

1978 IF Y-YM THEN MY- I .GOTO 2618 

1988 IF MY-1 THEN 2819 

1996 IF Y>YM THEN 2618 

2888 GOTO 2869 

2919 C-PEEKtMl *49> 

2929 IF''C(>129>*'COI2I> 
)29))THEN2638 

2838 IF El-I THEN 2869 

2848 E2-1 .ON AD GOT0I978, 



3479 PRINT' 



•<C093)-(C<>29)- 



S38 , 2888 . 28 I fi , I 928 . 1 978 



'LE OLOUTON APPARAIT AU CENTRE OUi* 
IYRINTHE.LE MONSTRE LUI SUROIT DE." 

3469 PRINT- FACON ALEATOIRE DANS UN 0E5 COINS." 

3496 PRINT*, n-mttn VOUS DE JOUER I -/- 

3398 GETA«[IFAt»-*-00r03389 

3319 RETURN 

3329 REM 

3339 REM CHOIX DU LABYRINTHE 

3348 REM 

3338 l.A~ INT ( 36 •< RND< RND(PE£K< 37349) > "PEEK' 3/349) J : 

3348 REM 

3378 REM TRACE DU LABYRINTHE 

3536 PPM 

3398 IF LA<18 THENG0SUB8I 9 .RETURN 

3688 IF <<I6<-LA)-<LA<28>) THCNGOSUBI 998 .RETURN 

3418 If LA^-^9 lllUmLi'jUOl 3/tf.RLTURN 



NEPTUNE 



Vous tMes aux commandes d'un batyscaphe et vous de- 
vez alter cbercher un tresor dissimule par des pieuvres au 
fond d*une caveme. 

Mais elles sont assez grosses pour vous manger, et elles 
ne lacheront pas le tresor sans se battre ! 

Thierry FISCHER 

COMMODORE 
64 



' Fi> ^--.li; . : FS IMT'TJ". 



919 F0KE34276.17 P0KE54296.15 PQV.E34273. _= PQ*:E5427c. S 
?;? PPIHT-3 % 

330 PRINT- a i ■-, 

940 PRIMT-a ■* — ■ ' 

996 PPIMT* ■ .a - 

960 PRINT" I | "i 

jTB PRIHT' S 3 ", 

9S0 PRINT" * 3 . 

990 PPINT" ■• a 

ieea print- i a 

1B10 PRINT- ■ a 

iese sc-iesee c^is for i=e to 100 

1030 fi=INTU«RNDfl;^ h*lHT'.2*PtG>'.ll> 
1040 C-C*Fi*f-lJlB 
1050 0Q3UB 1538 

i9^a i c c:e "t-[i r ;:? Then ::■"■:■ :.?■;? 

1079 C*C+29R«-i ■ • ;-i 

1880 OT5UB 1530 

1930 FOR D=0 TO C PRINT- -.-NEXT 

11B0 PRINT"*-. F0RE=9 TO 8 PRINT" ' 

1 116 FOR F< It) 23 PR1KT" "; NEXT 

1120 GOS'JB 1500 NEXT I 

1130 FOR 1-0 TO 20 

1140 FORJ=0 TO 50 HEXTJ OOSUB 1389 

1158 FOR 11=0 TO C PRINT NE | 

1166 PRIHT-B' FORE-8 TO SPRINT" ' 

GOSUB 1589 

1170 FOR F=C TO 25 PRINT" ".NEXT 



tT99 POKEV* l.V RETURN 
1790 IF PEEX(V*31)-e THEM 0070 191t 
1900 P0KE33Z99.I F0RI-1TO5 fCXT PQKE53ZW-S 
SCSC-3B9 IF S0O9 THEN 2699 
1919 RETURN 

1930 IF PEE)UV*39»9 THEN OOTO 1870 
1030 IF PEEK<V*31>"9 THEN OOTO 1909 
1340 IF Y<732 RKD XC299 THEN OOTO 1870 
1050 IF PEEKC 2020: -198 THEN PQKEaU.32 POKE2021.S 

sc-sc*25ae 

I860 GOTO 1880 

1B70 P0KE53M8. 1 ■ FORI -1T05- NEXT P0KE33299.9 SC-3C-399 

IF SC<«0 THEN 2600 

1690 RETURN 

1999 POKEV+21. 1X»3Z9 PRINT'*-. POKEV.16,1 POKEV. (X-233* 



f MEPTWE * 



i print-* »■ a 

i PRiNT"a a s 

l PRINT" a ■ 9 

I PRINT- a ■19 3 9 3 



■ ia ■ ■; 

■ «:• "»i HI 3 9TTO "; 

■ ^bii ^ «a ■ si a a 

! li ■ ■ IS » i II S ! J i 



FRINT-3 ■913939 IDS y "3 

150 PRINT-3 ■ ■ 5 939 33 I ■*■■* 
160 PRINT -a I ns i ! i 7 I I IS I 5 

170 print- aa n ■ «a ■ a s is e a 9 ma •■; 

180 print- a ■ aar ■ srm 9 aa ■ 9 393 ! i^ • ill i n rrw 

190 prints ib a raa* ■ a • ia a 9 aa 9 a ra ■ aa a 

200 PRiNT-a ■ ti »is 11 luiinnana 

210 PRINTS 11,1] ■ i "^ ■ j n 

220 PRiNT-a w as 1 t ■ -1 ^ -1 ■ "*s ", ,., 

230 PRiNT-a ■ 9 ia aa ■ an B ■; 

240 prints • ■ 33 aa ■ aaa ■; 

250 print-s a ■ as 9 as a "; 

260 print's ■ 9 as ■ as a '; 

270 PRINT-S I a 13 a li "I "; 

28« print-s ■ e a a "; 

290 PRiNT-a a a "; 

300 PRINT- -; 

318 PRINT" ■; 

329 PRINT" 

330 P0KE2823. 160 PGXE56295.7 
340 FOR 1-8 TO 2508 NEXT : PRINT-*" :P0KE53281, 2 

359 PRINT-* •-; 

360 PRINT"»a VOUS ETES R BORE D'UN BATHYSCAPHE. • "; 
370 PRINT-avOUS ETES CHARGE DE CHERCHER UN TRE- a"; 
300 PRINT-aSOR QUE LES PIEUVRES ONT EMPORTE DRNS •'; 
390 PRINT-aLEUR CftVERNE F4J FOND DE Lfl FOSSE nPlRI-0", 

409 PRINT-aHE.POUR RErtONTER.vouS DEVREZ iJTILISER •"; 

410 PRINT-aUN AUTRE PftRCOURS.CELUI QUE VOUS FtVEZ a". 
429 PRINT -aUT It ISE PCJR LP) DESCENTS Pi ETE ENVHHI *-J 

439 PRINT-aPflR LES PIEUVRES. •"; 

440 PRINT-MDEPLBCEnENTS-UTILISEZ LES TOUCHES BE •'. 
450 PRINT-a DEPLflCE.TENT DU 0UR8EUR 0"; 

469 PRINT"* CXRSR+SHIFT)0"; 

470 PRINT-aaTRESOR-POUR L'EMBftftOUER. POSEZ VOUS •" ; 

489 PRINT-a DIRECTEKENT DESSUS. IL EST flU *"J 

490 PRINT-a SRS DE L'ECRPM.Ff DROITE. •"; 
590 PRINT -WSORT IE : POUR SORTIR DE LH GRANDE CflVERt"; 
510 PRINT'a NE.UTILISEZ LR PETITE OROTTE Ha"; 
528 PRINT-a GPUCHE DE L'ECRHN. •"; 
530 PRINT-MPIEUVRES-HTTENTION, ELLES N'RPPRRRIS- 0"; 
540 PRINT"* SENT PRS IMMEDIRTEMENT I •"; 
539 PRINT-MPOINTSRU DEPfiRT-18eea. TPESGR-2588 •"; 
569 PRINT-a UN PHRCOURS-2000 CHQC— 300 •"; 
379 PRINT-a»POUR COrtHENCER.RPPUVEP SUR 'Z' •"; 
389 PRINT'* •■; 
399 FDRI-9TO39POKEI024*I.31 .P0KE35236+ 1,0 NEXT 
699 FCRI=0TO39 P0KE1984+I,8I POKE56256*I.0-NEXT 
610 G€T R*:IF RJO-Z- THEN GOTO 618 
620 POKE34277.70 POKE54278. 133 : P0KE34276, 33 
630 5OSUB640 : DOTO770 
649 PRINT-n", ■POKE53280.6:PO»CE3328I.8 
630 PRINT-S3". 

669 F0RI-1T04-PRINT* "; "NEXT 

670 PRINT" V "; 
699 PRINT" V. a 
690 PRINT" \ *•■■* n "; 

709 PRINT" *T4S S ^ -; 

710 PRINT* ^| W 
779 PRINT- -*J W -; 

739 PRINT'S *% W "> 

740 FORI-1T013:PRINT" "; NEXT 

730 PRINT- ",:POKE2023,160 PDKE36293.6 

769 RETURN 

770 V-53248 POKEV+21,1 

789 POKE2840.13 

790 FOR N-0 TO 62 READ Q POKE832*N,0 NEXT 
899 X-164 Y-98 
810 POKEV.X POKEV+l.V 
320 FOR 1-1 TO 509 NEXT POKE54296, 15 
830 FORI"! TO 83 
040 P0KES4273.5 P0KE54272.3 
850 V-Y*.3 POKEV+l.Y 

060 NEXT;POKE54236.0 FORI=l TO 330 NEXT 
870 FORI-8T011 PRINT' ".■NEXT 

889 P0KE53281.6PRINT-^" PRINT-!- 

890 FRiNT-HisxaosHnooaar. 

999 FORI-9TO180 Y»Y-.5 POKEV*! . YiNEXT 



/*■"> 





1900 FRINT-S 




1910 PRINT'S 




1920 PRINT"* 


NEXT PRINT" r. 


1938 PRINT** 




1948 PRINT-S 




1958 PRINT'S 




I960 PRINT'S ■ 




1970 PRINTS ■ 




1988 PRINT'S ■ 


NEXT PRINT'S - ; ■ 


1990 PRINT'S ■ 




2090 PRINT-S ■ 




2818 PRINT-S ■ 




2828 PRINT-S ■ 




2338 PRINT-S 9 




2043 PRINT-S ■ 




2833 PRINT-a 9 




2360 PRINT-S I 




2878 PRINT-a 9 




2833 PRINT-3 I 




2898 PRINT-3 ■ 




2100 PRINT-a 




2110 PRINT-a 




2120 PRINT-a 




2138 PRINT'a 


*Sl : s-~ t - - 


2140 FOR 1-0 TO ? 



1 !*y GOSUB \z-i-'- NEXT I 

1130 F0PI=8 TO 288-NEXT I 

1288 PRINT" 9 a 

1218 PRINT" 9 S 

1228 PRINT" 9* 3 

1239 PRINT" 9 3 

1248 PRINT" ■ *S 

1230 PRINT- 9 S 

1268 PRINT" ■ m M 

1270 PRINT' 9 3 9 

1280 PRINT" 9 3 9 

1298 PRINT" 5 a 9 

1383 PRINT" r a 9 

1318 PRINT' 9. 13 1 

1328 PRINT" 9 3 9 

1338 PRINT" H S 9> 

1343 PRINT" 9 I ■ 

1350 PRINT-9 3 9 

1363 PRINT-9 3 1 

1370 PRINT" 9 3 9 

1380 PRINT" ■ .5 ■ i t3 

1390 PRINT" 9> 3 9 ■* 

1400 PRINT" 9 S I a 

1418 PRINT" 9 3 9 3 9" 

1423 PRINT" 9 3 9 

1430 PRINT- k. 3 9 

1440 PRINT' 9 —> ■ 

1430 FORI "07033: POKE 1383+ 1. 16£ fq^^sm e KEXT 

POKE2023 . 160 : P0KE36293 . 

1 460 P0KE332W, POKE2020 . 1 08 P0XE36292 . 1 ■ 

P0KE2821 , 123:PGKE56293, 1 

1478 POKEV+21, 1 :pOKE2041,14 POKE2042. 14,POKE2043. 14 

1483 FOR N-8 TO 62RERD POKES96+N.0 NEXT 

1 493 POKEV+23, 14 I POKEV+40, POKEV+4 1,0: POKEV+42 ,12; 

POKEV+23,4 

1308 FDR H«0 TO 78 STEP3 ^-RBSt 1 1 7-3«H> 

1318 OOSUB 1678 

1320 POK£V+2,233:POKEV»3,280-K 

1330 ?0XEV+4,75:P0KEV*5,52*K 

1340 P0KEV+6.175-K P0KEV*7,32 

1350 GOSUB 1670 

1560 P0KE54273.N POt<E54272.N-N"0:NEXT H : POKEV+21 , 13 

1378 OOTO 1308 

1380 OOSUB 1798 

1338 GET fit 

1600 IF fl*--|r RND X>1 THEN X-X-4 GOTO 1630 

1610 IF Rf-"M" RND XOI9 THEN X-X+4 GOTO 1630 

1620 RETURN 

1630 IF X-0 THEN OOTO 1660 

1640 IF X<235 THEN POKEV+16, 8 POKEV. X RETURN 

1639 P0KEV*16,1 POKEV, (X-255) RETURN 



1668 RETURN 

1670 OETflf: OOSUB 1820 

1609 IF R»-"ir AND X>0 THEN X-X-4 :N-7; GOTO 1730 

1690 IF fl«-"IT RND X<319 THEN X-X+4 N-7- OOTO 1730 

1700 IF flt-"T AND V>10 THEN Y-Y-4 N-9 OOTO 1770 

1718 IF Af--»" AND V<234 THEN Y-Y+4 ; N-9 ■ GOTO1770 

1720 RETURN 

1738 GOSUB 1820 
1740 IF X-0 THEN GOTO 1990 

1739 IF X<233 THEN POKEV+16. 8 POKEV, X RETURN 
1768 POKEV+16, 1 POKEV, (X-233) ; RETURN 
1770 OOSUB 1820 



■ ta 9 a - 

POKEI984+1.168 POKE36236+I.0NFXTI 
2158 POK£V+23,0:POKEV+29.8 SP-9 DS-lX-.*29 

2163 FOR H-3 TO 27 

2178 GCSiiFr:^ b=^j;;»h-40> 

2183 POKEV»2,2l8+BP0KEV+3.218-B/2 

2198 P0KEV+4,62P0KEV-3.159+B 

2280 POKEY+6,162:P0KEV+7.123-B 

2218 00S*JB223e=pq(E34273*H POKE54272.N N-0 NEXTH 

2228 OOTO2160 

22?e ^0SUB2368 

2240 GET ~i 

2250 IF fl»-"ir AND x>0 THEN X-X-4 :n-7 GOTO 2380 

2260 IF fif--ir AND X<319 THEN X-X+4 N-7 GOTO 2390 

2270 IF R»--T RND V>10 THEN Y-V-4 : N-9 GOTO 2340 

2280 IF RJ--*- AND YC234 THEN V-Y+4 N-9GOTO2340 

2290 RETURN 

23013 G0SUB2368 

2310 IF X<255 THEN POKEV+16. 8 POKEV, X RETURN 

2329 POKEV+16, 1 POKEV. CX-233) RETURN 

2339 C0SUB2368 

2340 IFY<38 THEN GOSUB 2480 
2350 POKEV+l.V^RETURN 

2360 IF PEEK<V»30»0 THEN GOTO 2380 

2378 IF PEEK(V+31>-0 THEN GOTO 2399 

2398 P0ME33S99/1 FORI-1T05 NEXT POKE33280.0 

SC-SC-300 IF SCC-0 THEN 2698 

2390 RETURN 

2499 SP-SP+1 

2419 IF SP-1 THEN GOSUB 2478 

2429 IF SP-4 THEN GOTO 2530 

2430 BS-DS+2TSP 

2440 Y-234POKEV+21,DS 

2458 SC-SC+2390 

2460 RETURN 

2478 FDR A-1T04 F0RB-8T04 

2480 POKE1S79+A*40«B.160 POKE55831»A+40»B.e 

2498 NEXT NEXT 

2588 FOR R-l TO 6 FOR B-l TO 2 

2510 POKE1929*A+40»B.32 NEXT NEXT 

2320 RETURN 

2530 POKEV+21. 1 POKEV, 164 POKEV* 1 . 234 GOSUB640 

2340 FORI-0TO3000NEXT 

2330 POKE34273.9 P0KE34272.9 

2360 FORI-234 TO 146 STEP-. 25 POKEV+1 . 1 NEXT 

2370 POKE34296.0 FORI-0 TO 2890 NEXT 

2300 P0KE34276,33 P0KE54273.5 P0KE34272.3 P0KE54296.I3 

2330 F0RI-146 TO 93 STEP-. 25 POKEV+l , I NEXT 

2609 POKE34236.0 FORI-0TO3080 NEXT 

2610 POKE33238.14:POKE3328I,6 POKEV+21, 
2628 RESTORE 

2638 PRINTTT PRINT"aV0TRE SCORE EST DE "-SC, 'POINTS- 

2640 IF SO0 THEN 2670 

2630 PRINT-VOTRE BATHYSCAPHE « SU8IT DE TROP N0T1-* 

2668 PRINT-BREUX CHOCS. VOUS PERISSEZ NOVE." 

2670 PRINT"T. :END 

2680 DATA0, 0,0, 0,0,8,0,0,0 

2690 DATA0.8,0, 1,233, 123,3,8.192 

2789 DATA6, 0,96, 63. 0.252. 127,233,254 

2710 DHTH233, 233, 233, 251. 253, 223, 241, 233, 143 

2728 DRTA251, 233. 223, 127.235.234,63,233,252 

2730 DRTR0,0,0,0,0.0,0,0,8 

2748 DRTA0. 0,0. 0,8, 0,0,0,8 

2738 DRTR0, 60,0,0, 126, 8. 8.255.0 

2768 DRTA8, 219. 0.8, 219,0,0,235,8 

2778 DRTfll.235,128. 1,163.128,1,36,128 

2788 DRTA3.36. 192. 138. 182,63, 130.66,63 

2730 DRTR198,66,39. 190, 193,38.60, 129,60 

2890 DATA8. 123,8.8, 129,0.8, 129,8. 

2810 DATA8, 123.0,0,8.0.0.0,8 



GESTOCK 



Programme de gestion de support d'inventaire. Ce pro- 
gramme permet la gestion d'un support d'inventaire de x 
pages, d'environ 70 articles chacune. et caicule la valeur 
de chaque page. Les references et prix unitaires sont 
stockes dans un tableau que I'operateur sauvegarde ou 
repique sur bande magnetique. 
Le nombre de pages, les titres de chaque page et le nom- 
bre de references par page sont contenus dans la liste de 
DATA que Ton peut augmenter ou reduire. Chaque nume- 
ro de ligne sera egale a : 295 + (5 x n° page). 

Alain Gournet 



Etiquette "PROG I" 

DEF'A : Apres lecture des donnees, I'operateur entre une^a une les 
quantites. I'imprimante edite la valorisation de I'inventairV (ex. 3) 
DEF"S" ; Lit des donnees sur bande actualiseeljgne a Mgne. Les prix uni- 
taires et sauvegarde le tableau ainsi obtenu. 

DEF'D* : Lit les donnees sur bande, change une seule reference ou un 
seul prix dont la ligne est appele par I'operateur et sauvegarde le nou- 
veau tableau (ex. 2) 

DEF'F" : Edite un listing de chaque page en numerotant les lignes (ex. 
1) 

OEF"G" : Permet de sauvegarder independamment de ''execution d'un 
programme le tableau de donnees (2 bandes de securite !..) 
DEF"H" : effectue a nouveau la sequence de calcul pour un tableau de 
donnees present en memoire. 

L'auteur est gerant de restaurant, ne vous etonnez done pas de la liste 
des produits en stock dans les exemples proposes ! 




P0CE9 30ISS0MS 

1 COCft-COLfl 1/4 

2 HERE L 

I HERE 1/4 

4 LlnOMAHE L 

5 SODA O'C 1/4 

6 VICW 1/4 
-7 VITTEL 1/4 

b vina nfixi 

4 ROUGE L 
1 I1L6MC L 
11R0UGE 1/4 
12R0SE V* 




PC 1251 



1.28 
1.31 
1-33 
2.23 
4.33 
3. 48 
1.24 
1.24 



13RHU1 L 
14C0OHCC L 
13"ODE3E l 
16KIRSCH L 
17GD flfiSNlES L 
18JUS DE FRUITS I 
19PEPRIER fflXI 
28COCO-C0LU nun 

21VILLAUBRIC L 
22COR3IERES L 
23flOUSSEUX L 



46. 88 
34.38 
38.30 
43.48 
76.38 
6.42 
3.88 
2.83 
3.23 
8.13 
9.93 



paccie -llAL-.ACES 



PH • 



. guS"T • TO'AL 



PACE9 3JISS0NS 

8 PERRIER 1/4 
8 VITTEL NAXI 
S *CS£ 3U SARD 1 



2.23 
3.32 

12.83 



iOUTEI-.ES l/« 

e.se :28?. 38 72e.ee 
iouu;__es v:s 

i.ee 2* ■»..]<• 23*.e8 
ioute:l.es VWiM 

i.ee sn.ii 363.e8 

CM1UCI 

13.ee 139.88 286T.3S 



TOTAL <4T* 



3««9. 



llllSS ■ ;es-oc*s 

::eioEf 

122'RE« 

|»|REK ALAIN S0UR"ET 

I3TIACFI 

1J01OE* >*0'/RA«^E DE 

I33IRE" itSTIO** 3£ 

149iRE^ 5Ufr"0R- 

143l«n D-I«V(MTA1RE 



NDLR 

[MIXED 

tSJiftE* S-a>R "C 1231 I 

168:'E- t(t"EW«« CC 123 

178:9E- 

280: •-- GOSUI 368 

2W-i**:h w * pu -' • ou 

ANT • rOT«L"i L"RINT 

2I0i»E£P 5t »AUSE -£MTPE 
; voS OUA^TIT£S Sv»" 
2I8iFOR !■! 1 

EKDi ih»ut «!(►■!<: 

): OCSUB 2981 «EXT I 

248HSPUT 'J.AuTffES RE" 

•:£It It £*•'«• COTO 

230 

23eUHPUT -COKIIE" ''ixt 
fOR I"! TO Xi INPUT 
•DESIGNATION viEtte 
Jl CM INT [■<•)! 



wpui 'PO -t ■>•;<> 

! 60SUI 298i SEXT I 
299tLPRIHT "I LMIMT 'S 

i-TOTSt HT"*.A1 EMl 
29*iU*HIHT USING 'Sttt.l 

•*f PI USING 'tlttt.l 

■•IPI USING -IIIIII. 

UMP'Fl USING 
293!A*A*(P»F-i: S£TuB-. 
3ee:DATA -EC0N01AT-.33 
ie3:DfltA 'ECONarflT-.Ji 
SieiDRTft ■ECOWHRT'.n 
313:DA T A •PaT;sSERIE-.42 
320JDATA *!0UCNE»tE-.:3 
32SI0ATO -SURGELES-.22 
330IDA-A ' J-O-F. '-39 
ISStMTA 'HUIT8 I u£GUN 

£;•.;: 

348I3ATO -I0ISS0NS-.2I 
J«5: E^'- -£*!ALL6GES*.* 

ISUMTfl ■-:■• blihcmtaih 

E*.*l 
4131 *S*i GOSUI 3S0t FOB 
>l TO xi o ftu sE Elt! 
)l |HW KDi GJSU1 

;?ei -'.<• n sosui 3 

1*1 K«.J 70H e«D 
4»I*B'I OGSuS 360 
«8i InPu" '-.UNERO 3E LIG 

-E riC 



I EHl 
478! -r-: GOSUI 360! 'OR 

!■: TO Xi GOSUI 3301 

NEXT I i END 
4801 *G'i GOSUI 330t 

COSul 781 : EnS 
4901-H-i GOtO 203 
3J0i INPUT -CASSETTE FRET 

333tlF EIO'O' GOTO 330 
5J6i RETURN 

338'LPRINT USING 'H'l 
STOl II USING -Ctttt 

uitttutt'iEimi 
USING •im.II'IKI) 
! USING : OETuRN 
!6erCLEaR i IMHJT ■SU"E" 
DE PAGE »*1CI DIN 
:i<8)*22 
363i IF COl GOTO 630 
ire-.iPRiN: • ikven 

TAIRE' 

37HLPRINT ■ 

372UNPU7 •NOIS'» AMt'lO 



37JILPRINT • 



*IOI( 



*PU NT ' 



t|(C) 



430IFOR I.C TO Cl GOSUI 
3301 NEXT I 

433! INPUT *'JN AUT8E CHAH 

GENENT ■>•:£»! IF Et- 

*0* GOTO 440 
460IGOSUI 33»i GOSUI 701 



6301RESTORE 293«3C 
6351BEAD 31(0). x 
6J6IDIN [l(Xl*24.|Otl 
64»iEI(8)»'PAGE'* S'RI C 

.* •*3»(0) 
630ILPRINT ": I.PRIW El 

(9)i lRSTnt ••; 

GOSUI 310 
700* INPUT I*P1'ICI(«).|( 

•)l RETURN 
701IPR1KT I-Pl'IEI(.>.|( 

•>■ RETURN ■ 



MINI-TRAITEMENT DE TEXTE 



Void un programme a qui vous pourrez confier tous vos 
probtemes de courriers, de composition, de mise au net 
ou tout simplement d'ecriture. 

Amara CONTE. 



* 



suite du 
listing du N° 33 



2628 IF r.l-1 RNO <P0S<VT)-HJEHKF28)>>VU THEN 

PRiNT«vT.F2«*sTRiNG*<<-vs-vLn+MG.32>. 

F2*-"" 21-2 GOSUB 2780 

2639 IF 21-2 AND LEWF2»5-vu-MG THEN 
PRIMT.VT,F2»*STRING*' ( VS-VU HMC, 32 ) . F2*-" "' 

GOSUB 2789 

2640 NEXT PO 

2630 PRINT4VT,F2», F2«a-" 
2660 IF E3*-"" THEN GOTO 2740 
2679 PR1NT«VTTR8'MC*02>"-; -ZI-1 

2688 IF POSXVTi-VU THEN PPtNT«VT.STRING*<< VS-ViJ)+MG>32>i 
2690 FOP PO-1 TO LEWE3»"> 
2700 F3*=F3*-niO»'.E?*.PO.I> 

2710 IF 21 = 1 RNO ( POSC VT >+LEW F3* > 5-VU THEN PRIHT«VT« 
F3**STP INC*' ' VS-VU >+MG ■ 32 > ■ 
■F3*-"" 21-2 GOSUB 2738 

2729 IF ZI-2 RNO LEN< F38 >»VU-MG THEN PR!NT#VT, 
F3»*STR ING»< ( VS-VU >*MC , 32 > ; F3*»" " 

GOSUB 2788 
2738 NEXT PO 
2740 RRINT»VT.F3* F3**"" 
2750 e*-INKEV« IF B*=-'" THEN COTD 2319 
2768 NEXT J 
2770 GOTO 2810 
2739 

2799 IF IN-2 THEN PRINTtVT.3TPING*"'V^-Vii>*< VU-MG >+MG,32> 
2309 RETURN 
2310 

2820 Fit-"" :F2«= n " F3*s"- 
2330 N-W 
2349 GOTO 330 
2839 ■ 
2869 

2879 ' S'PCM ' EDITEP 
2333 
2890 CLS ' 

2909 IF |<»] THEN PPIMTTfie<19>"P.?.s de t«xt«"'GOTQ 339 ■ 

2910 IF N<1 OR N>l-l THEM PRINTTflBC 4 >"«rr*ur «ir 
•oj &?i-jn.e*f*s" GOTO 330 

2' i 29 IWO WH? 
2930 CLSPPINTe236.R*fN>i 
2949 FOP 11=1 TO LEH<M> 
2933 3*<II >=MH>*<fl«,II,l> 

2969 NEXT II 

2970 C-9-G0T0 3130 
2988 PP INT9CCHP*<1 28 >; 
2999 SB*-" 

???? SR*-INKEY*IF S3*-"" THEN GOTO 3989 

3919 if Bsc:sn»j>47 rho hsc'sfwksb then se*=SB**3R* 

7029 IF SPS-CHR*-: 32 ) THEN GOTO 3130 

7939 IF SR-*"CHR«< 8 ) THEN GOTO 3230 

3040 IF 3R*-"I" THEN GOTO 3329 

3959 IF Sfi*="D" THEM GOTO 3319 

3369 IF S«»"CHR*C 13) THEN GOTO 3649 

3079 IF SR-ta-C* THEN GOTO 3679 

->C1R9 IF Sfl*="H" THEM GOTO 3329 

75199 if SM--X" THEN GOTO 3399 

7199 IF SR»="3" THEM GOTO 7949 

3110 GOTO 3999 

3120 i 

3139 IF C=LEN'R*J*1 THEM GOTO 2990 

3149 IF SB*="" Then 80»1'ELSE IF VflL<SB8>8 THEN EB=1 

3130 3B-VRL< SB* ) 

"5160 IF S8>LEN<fl*>-C THEN SB-LEN' R* >-C*I 

3178 FOP 11=1 TO SB 

3130 C=C*1 

3199 PPINTi?C-I .BS/C-1 J; 

3290 "EXT II 

3219 GOTO 2939 

3220 

3230 IF 0-1 THEN GOTO 2999 

3240 IF 3B*=" M THEN 38=1 EL' 

7259 5B*VfiL<S8») 

3260 IF S8>C THEN se-c-i 

3279 FOP II-l TO SB 

3299 C=C-1 

3299 PRINTi5CM,CHP*'32 '. 

3399 NEXT II 

3310 GOTO 2939 

3329 

3330 8*W-" D-C 

3349 SS*»INKEY»>IF 53*="" THEN GOTO 3349 

3339 IF 3S*-CHP*'3> THEN GOTO 3499 ELSE IF S5*-CHR*r 

10 > OR S3*=CHR-'9'> THEN GOTO 

3349 
3360 IF ^3*=CHPf 13> "P 33*-CHP»' 95 ) THEM GOTO 3470 
3379 IF LEN'SRi'-LEN'R* <:=255 THEM GOTO 3340 
3739 88-K0>*SS»'8<W Sfl »>gg*CD7'PSIwri&,88»<0>) ■ 
r.-o+l PRIKT8D-CHW<12a>) 
7399 GOTO 3348 
3499 IF D*C THEM GOTO 3340 

3419 PP INTRO, CMPV 32>; ■ SSff 0">= " " ^ 0-0-1 PPIMT5D, 
CHRK 128 Ji ' 7R»=LEFT*' 3R« , LEW Sfl* ) 
-1 > 

3429 GOTO 3349 

3479 PRINTi*0.CHR*'32'. R*=LEFT*'R*.C-1 •■*7R**PIGHT*' 
Ht.LEN'R*l-C*l> 
3449 X) 

3438 FOP 1 1-1 TO LEH'R*' B*'II -MID*' R*. II ■ 1 1 "EXT II 
3460 IF 33»=CMP*' 13' THFf) GOTO 3649 ELSE GOTO 29?9 
3479 3R*="" FOR II =C TO 

3439 3R*=3R«*33*' It > 
3490 NEXT II 

3590 GOTO 3439 

3319 

3528 IF S6V>"" RNO fflL<S8»X>8 THEM 3B-VRL'SB«) 

IF SB>LEN'fi*>-C THEM FOP II-C T 

LEN'R*) e*' II :■="" NEXT II R*=LEFTV R*.C-I > GOTO 3630 

3530 FOP JJ=1 TO 38 

3349 J 1-9 

3339 B*<C>"" 

3550 FOR II-C TO LEN'R*) 

3579 Jl-Jl + t 

3588 8*' lines' J1*C . 

3399 NEXT II 

3609 R*=LEFT«'R*,C-1 ^*P1CMT«' Rt, LEN'R* >-C > 

3610 FOP T 1—1 TO LEN'R*i B*' I n-MID-'R*. 1 1 • 1 >'NEXT II 
3620 NEXT JJ 

3630 GOTO 2930 

3640 ■ 

3639 fl*'N>-fl*FT = l CLS PPI"TR*'M - PRINT 

3669 GOTO 350 

3670 i 
3680 SR*«"" 

3690 IF SB*-"" THEM 7B->1 ELSE IF VRL f 3B»>9 

THEM Se=1 ELSE 3B-VW'SB«) 

3700 IF 3B>LEN'fi»>-C THEM SB-LEN<fi»>-0 

3710 0-C'FOR 11-1 TO SB 

3720 SSs-INKEYV IF. SS»-"" THEM GOTO 3729 

3739 IF gB**CHRK8> OP 3S««0HP«C9> OR SS«-CHP*' 

19 > OR SS*-CHP»'21 l OP S3»-0HR*' 1 



IF yR[_< SB* >=9 THEM 



3 ) THEM GOTO 3779 
3749 e*' C i-3S* 



<769 I 



*1 



3779 PPIHT»C-i ,88*1 

373" PPiNT^o.GHP*' 12S>- 

3790 NEXT II 

3300 R»=LEFT* f RS-C 1 -! , *SR**R!GHT*'H*.LEM'R* '-'n--' ■•: ■ 

3810 GOTO 297? 

3820 ' 

3379 IF r=p THEM FOP H-) TO LEM'R»i PS' I ! )■■■ 

MEXt f I R«= ,,M GOTO 2939 

3340 R5=LEFTS'fi*\r-i > 

3859 FOP 1 1 = 1 TO LEM'R*i 

3369 BSf (l)"HIM<mi 1 1 ■ 1 •» 

7373 NEXT II 

3889 GOTO 3329 

3390 ' 

3300 PRIMTi?C. RIGHT*' R*.t EM' R*-r*i .; 

3910 C=C*'LEN(R*'>-C'*1 

3929 PRINT9CCHP*' 123 1 ; 

3930 IF VI-9 THEM GOTO 3320 EL^E VI«e-GOTO 2988 
3940 i 

3959 flR*=PIGHT*'fl».LEM':R*i-C) 

3960 SR*"INKEY* IF SR*="" THEM GOTO 396n 
3979 SS»IMSTP(RR*,5R«) 

3930 IF SS=0 THEM VI-1'COTO 3898 'ELS€ "1-0 

3990 PRINT?r,e*.-(;^LEFTS'P-R*.33-l >j 

4888 C=C*SS 

401Q PPINTr-C.CHP*ri23-': 

4029 GOTO 2980 
4039 ' 

4043 

4030 '7-PGM DETRUIRE 
4068 

4979 PRINT 

4939 IF K»J THEM PRIMTTRB<101 B P3s d" t»xte"'COTO 339 

4990 IF N<1 OP N>I-I OR tl'M THEM PRlHT"er(--»r*« sur 

l = s e?.r?mct;res" -GOTO 550 

4199 IF HM-1 THEM M=I-1 

4110 

4120 FOP J=M TO I-M-'M+I) 

4130 RKJJ-IWK+1+J-N) 

4140 NEXT J 

4139 !=!*"-•: M*l J 

4169 GOTO 359 

4179 i 

4139 ■■ 

4199 ' S/PGH PEflPLRCEP 

4209 . 

4210 PPIMT 

4220 IF I' = I THEM PPIMTTRe'lfli"P>=. d« »»^*-»'* ■ GHTO ^n 
4239 IF H<1 OP M>I-1 THEM PPIMTTRB'4> "-rreijr sur 



>: dfl '.»■ U" GOTO 99Q 



1- c-,r„ .,■'.,-- r.r.m '.'ft 

4240 FPIMTn- r>" 'MM I 

4238 PpIHTUSIHC"MM*;H 

.'.3''" FT^l 

4278 G"TO Z*-n 

4280 

4298 

I " ■ ■ pQH TROWER 

4310 

43?0 ppr'n 

4330 IF I'm THEN PRIH7THBU9 
4340 IF !l'l THFM H"l 
4350 IF M-I-l THEM H-I-l 

4360 IF M'M THEN n*N 

4370 IF MM-1 THEN M-I-I 

4330 

4390 LIME INPUT "CRRRCTEPE5 " . B» 

4490 ppint PPIMT 

44I0 FC=0 

4420 FOP J-N TO M 

4430 IF LEM'R*' J •■ > ' LEHCB*) THEN GOTO 4460 

4440 T1=IMSTP'R*' J),B«> 

4450 IF T1O0 THE" PRINT J . fi»' J ■> FC-1 

4469 "EXT J 

4470 IF FC=0 THEN PPIMT:PRIMT • 
MOM TROUVES ENTPE LES LIGNES ' 




•CRRRCTERES ' 



ET ' 



■■n 



4438 GOTO 550 

4490 

4580 

4510 'S'PGM ' OPTinn^ 

4520 i 

4330 CLS 

4540 PPINTTR6'7V'*Ttt OPTIONS »*Tt" PRINT 

4558 PPIMT" ! CRPRCTEPE OE TRBULftTintj 
4569 PPIMT" 2 VBLEURS DE TR8ULPTI0N ECRRtr 
4578 PRINT" 3 VRLEUPS OE TRBIJLRTION IMPR." 

4559 PRINT" 4 VRL. t>E TRB. MflPGE R GR"CHE" 
4590 PPINT" 5 VRL. E>E TRB. I1RPGE OR. IMP." 
4690 PRINT" 6 VRL. CE TRB. MRRGE f-R. ECP. " 
4610 PRINT" 7 IMTEPLIGMRGE 

4620 PPIMT" 3 CHQcrjcp vO? OPTIONS 
4670 PPINT" 9 SWVECflR&ER VOS OPTIONS 
4648 PRINT-10 OUITTER LE MOOE 
4639 PRINT' INPUT " VOTRE CHOIX ";TI* 

4669 IF VRL<T1*'><1 RNO VRLCTlsmn THEM r.njn 4588 

4670 TI-V0UT18) 

4680 ON Tl GOTO 4690-4760.4950.4859.3040.5120.3428,5208.5320.4930 

4700 CLS^PRIKT PRINT 

4710 PRIMT-'CRPRC. CE TRB. RCTUEL ' "iT« 

4720 PRINT PRINT 

4739 LINE INPUT "MOWER" CPRPCTEPE 



iTTSTTt-LEFTVTT*.! > 



4748 IF TT*="" THEN GOTO 4500 

4750 T»-LEFTKT8j.I>'G0T0 4500 

4760 ■ 

4770 CLS PPIMT-PRINT 

4730 PRINT"VRL. RCTUELLES DE TRB. >"jS1»82 

4790 PRIHTtPRINT 

4890 INPUT "NOUVELLES VRLEUPS ".31*,S2* 

4810 IF SI*-"" RNO S2*="" THEM GOTO 4508 

4820 IF VRL'SI*XMG OR VPL'SH^VRU S2* ) OP \'RL'31*"'> P=: THEM PRINT"ERREUP SUR L 

R PREMIERE VRLEUP." GOTO 4778 

4330 IF VRL<:S2*XMG OP VRL( S2*X( VRL' S!*) OR VfiLi'S2*»PS THEM GOTO 4770 

4849 S1-VRL<S1*VS2=VRL'S2*>G0T0 4309 

4838 ' 

4860 CLS'PRINT PRINT 

4870 PPINT" VRLEUR RCTUELLE DE TRB. MRRGE R GRMCHE ";MG 

4880 PRINT PRINT 

4390 INPUT"NOUVELLE VRLEUP " .Ml* 

4909 IF Ml*-"" THEN GOTO 4500 

4910 IF VflUIMlSXl OP V!RL<ni*»S1 OP VRLfHIt^Pl OP '-.'RL<M1*->>S2 OP VRL'M1*1>P2 
P VRL'M1*?>MD OP VRL' , M1*)>PS THEN ppiHT"ERPEUP SUR LO VRLEUR. " GOTO 4830 

4929 MG-VfiL'Ml»)'GOTO 4590 

4930 i 

4940 CLS GOTO 330 

4930 • 

4960 CLS.PPINT'PPINT 

4970 PPINT"\'RL. RCTUELLES OE TRB. IMPRIM. "-P1jP2 

4988 PRINT' PR I NT 

4990 INPUT"MOUVELLES VRLEUPS ";Pl*.P2* 

5000 IF Pl»="" RNO P2*="" THEM GOTO 4300 

5«10 IF VflL<Pl*XMG OP VPLrPl*^VRL< Pg« ■> OP VRL'P1«»«0 THEN PPIMT"EPREUR SUP LR 

PPEMIEPE VRLEiJP. "'GOTO 4960 
3020 IF VRL':P2*)<MG OP VRL<P2» )'VRL' PI*'' OP VRL' P2* »M0 THEN PPINT"ERPEUP SUR LR 

SECDNDE VRLEUP."GOT0 4969 
5038 Pl-VRL , :PI*)'P2=VRLf P2*>'G0T0 4599 
3940 i 

3039 CLSPRINTPRINT 

5069 PRIMT"VRLEUP (KTUELUE OE TRB. MRPGE R OPHITE IMPPIMRHTE i "iMD 
3970 PRINT PRINT 

5089 INPUT "MOUVELLE VflLEUR ";M2* 

5090 IF M2*-"" THEN GOTO 4500 

5100 IF VRL'M2*>>39 np VRL'M2*'"'P2*MG OP VRL' M2« X P 1 *MG OR VRL<M2*XMG THEN PPIM 

T"EPPEUP SUR LR VRI.EnP."-GOTO 5049 

5110 MD-VRL' M2* "■ GOTO 4509 

3128 ' 

5130 CLSPPIMTPPIMT 

3148 PRINT'-VflLEUP RCTUELLE OE TRB. MRPGE fl OPOITE ECPRN ■ H ;PS 

3130 PRINT PRINT 

3160 INPUT "MOUVELLE VflLEUP ",PS* 

3179 IF PS*="" THEM GOTO 4500 

5180 IF VRL<P3*'>>?2 OP VRl/PS* V '7?*"G D "RL'P"* '"S1*MG OP VRL'PS*vt1G THEM PPIH 

T"EPPFpjr SUP LR VflLEUR."'COT0 3129 

5190 PS-VRLr PS* V GOTO 4509 

3299 

5219 POKE65494.0 

5220 CLS PPINTTRB'6)"CHRPGEnEMT 0' OPTIONS" PRINT ■ PPINT 
5239 GOSMB 1330 PPINTPRINT ■■ PPINT 

3249 INPUT "NOM W FICHIEP "-OP* 

3250 IF OR*^"-" THFM GOTO 4500 
5268 GOSUB 1970 

3279 OPEN "[",»-] -OP* 

3200 IF E0F'-1> THEM GOTO 5310 

3230 INPi.!TH-l,T*.31.S2.Pl .P2.MG.M0-PS 

5709 GOTO 3230 

3310 CL0SE«-1 GOTO 4500 

5329 - 
5339 01 S'PP!NTTRB'5>"3RUVECRP0E O'OPTIONS" PPIMT ■ ppint 

5349 P0KES3494;8 
^-l^o C0SU8 l^^O PPTMT PRINT PRINT 

5350 IMPUT-MOM OU FICHIEP "iOP* 
-.779 IF OP*-"''" THEN GOTO 4508 

5330 GOSUB I970 
5398 hpem "0",«-i ,op* 

5400 PPIMT--l.T*.Sl.S?PI.P2.riG,M0,PS 
3410 CLOSE t-1 GOTO 4300 
3429 

3430 CLS PPIMT PPINT 
5449 PPINT"IMTERLiGMRGE flCTUEL ' "(IN 
5459 PPIMT PPINT 

-i469 INPUT "MO'J"/EL INTEPLIGMRGE 'MM* IN*-LEFT*( IN*, 1 ) 

3479 IF IN*="" THEN GOTO 4599 ELSE IF RSC<!N*X49 OP RMXIWDSO THEN GOTO 451 
■^480 IN»Vfi(.''tN*>iGOT0 4300 
5490 
5590 

3519 'S'PGM OiJITTEP 
5520 
5530 CLS 

^549 ppinTTRB'^-v'-rrrf ENO tttr" PPINT PPINT'PPINT 
3550 
5569 

5578 'S'PGM ■ COMMRNOES 
5588 ■ 

3390 CLS'PPIMTTfie' 7>"tttt rnwiRNOES ****" PPIMT 
3600 FOP II-l TO 8 



o„ 




o^ G 



&& 



Suite page U 



PROGRAMME GESTION 



Un super programme de gestion de compte special cour- 
se ! II vous facilitera vos problemes de gestion mais ne 
vous penmettra pas, malheureusement. de depenser plus 
que ce que vous possedez ! 

Guy COHEN 



suite du 
listing du 
N33 



2310 PRINT3768.S1RING*<64. 32 

Tft|NG*.F,-. -; ■, 

2313 PRINT385«, -E»t-C» qu* tout **t 

2320 IU-880!GOSUB I WOO 

2323 IF l»--0- THEN 2330 ELSE IF I*' 

.-330 put *i.ub 

?535 if t7 = l then t:-b!goio imo 

.-3*8 PR1N13S4B. "Vooi*.-vou» ,nir«du 
-"543 TU'BESi GOSUB 10000 
/330 IF I»-"0- THEN 2000 ELSE IF If 
2555 "— MESSAGES D' EXPL ICAT ION— 

.-sea ' — nature — 

2363 PR1NT3774. "[nd.au*; la natur* . 

^570 RETURN 

2373 • FORME 

2380 PSINTa769.-Ind.ou*! *ous ou«n. 

2563 RETURN 

2390 " DEBIT 

2393 PRINT3769. - Ind.auvz 4. 

26B0 RETURN 

2683 • DATE 

2610 PRINT376S." Ino.nuez la da 

2612 PRINT3973. -<*> pout rmrtndre 

2613 RETURN 

2620 *— HONTAWT— 

2623 PRINT3769. - Ind.o 

2630 PRINT3960. -<*> r*c 

2633 RETURN 

2640 • LI BELLE 

2643 PRINT3770, - Ind . au*z un I 

2630 RETURN 

2633 IF TZ-l THEN UB-ZZ:GOT0 I' 



NTa960.STRING»<63. 32) 



■N" THEN 2020 ELSE 2328 



THEN 1000 ELSE 2545 



.tw i CHEQUE . CARTE BLEUE . 



te- : OUI ou NON. 



JOUR / MOIS . 



S*ur - (SHIFT) <*) ...iur.,i 



<ENTER) t*n 



II* oour I'op-rat.on - 28 earn 
I ELSE UB-UB-l: ZZ-UBJOOTO 1000 



MODIFICATION D' UNE OPERATION ' 



NO*-LEFT»(N 



3010 ■ MODIFICATION D'UNE OPERATION 

3028 CLS 

3038 PRINT STRING»<I6. 14f 

16. 148) 

3040 PRINT3452. "Entraz I* nuMra de I'owfition 

3030 PRINT3978. "Pour r«ven,r iu MENU tap*r (3> . ' 

3060 TU-497 

3079 NO*-*" 

3880 GOSUB 10000 

3063 IF I*--3* THEN 1000 

3090 IF ASC(1*>-13 THEN 3148 

3180 IF ASC(I*>-8 THEN TU-TU-HIF TU) 496 THEN 

0*.LEN<NO*)-1):GOTO 3080 ELSE TU=497:GOT0 3080 

3110 IF IH-B- OR I») "9" THEN 3080 

3120 PRINT3TU. I»! :NO*-N0*+ I *: TU-TU* 1 : IF L£N(N0*)-3 THEN 3140 

3130 GOTO 3080 

3140 TV-VAL<NO*):IF TV=0 DR TV) UB THEN PRINT844B. STRING* (63. 32) : PRINT3466.' 

NUMERO D'OPERATION INEX ISTANT" : FOR T-l TO 1000: NEXT T:GOT0 1000 

3130 GET •l.TV 

3178 PRINT3192. STRING*<21. 143)!" OPERATION NUMERO "I 

3180 PRINT USING "••* "ITVjiPRINT STRING*(2i . 143) 

3190 PRINT332B. "Natura d*> I'ooeration : "1NA* 

3280 PRINT-Forw* d* I'owntion : ":FD*f dablt >"lDE* 

321B PRINT"Date d* i'oo«r«tion " : DA* 

3220 PRINT-Montant d» i"OP*ration: " ! MO* 

3230 PRINTLib*! I* da reparation: "1LI* 

3240 PRINTIPRINT STRINGX66. 143) 

3230 IF TX-I THEN RETURN 

3260 PRINT3960.STRlNG*(&3. " ") I : PRINT3973. 1 

Est-ca bian i'on»fM>on a MOdifiar"! 

3270 TU-1008:GOSUB 10000 

3280 IF I«--N" THEN 1B0B ELSE IF 

3290 PRINT3968.STRING*<63. " "> I 

3300 PRINT3I92.STRING»<64. " ") 

3318 ZZ^JB:UB-TV:TZ-1 : GOTO 2B30 

4018 • SUPPRESSION D'UNE OPERATION 

4020 ' 

4030 CLS 

4040 PRINT STRING*( 16. 141 

. 140) 

4030 PRINT3452. "Entraz la nuwro da I'ooarat.on a luoor >»»r t ... 

4060 PRINT397B.-Pour ravan I r iu MENU up»f <3> . ■ I 

4870 TU-498 

4080 NU*--" 

4B90 GOSUB 10000 

4100 IF I*"'3~ THEN 1000 

4110 IF ASCII*) -13 THEN 4170 

4128 IF ASC'I*)-8 THEN IF TU-498 THEN 4070 ELSE TU-TU-1 I 

U*.LEN(NU*)-1> iGOTO 4090 

4130 IF I»-"3- THEN 1B00 

4140 IF I*<"0" OA I*)"9- THEN 4090 

4130 PRINT3TU. I*:iTU-TU*l:NU»-NU*-I* 

4160 IF L£N(NU»>-3 THEN 4170 ELSE 4090 

4178 TV=VAL<NU*>: IF TV-0 OR TV)UB THEN PRINT3343. STRING»<b3. " "> 

-NUMERO D'OPERATION INEX ISTANT" :FOR T-l TO 1BB01 NEXT! GOTO I 

4188 TX-HGOSUB 3138 

4190 PRINT3968.STRING*<63.32)- 

42B0 PRINT3960. "Est-c* b.an I'ooarat.on a sooor.nar ?"l 

4210 TU-398JG0SUB 1 0000 

4220 IF I*-*N- THEN 1000 ELSE IF I»0"0- THEN 4210 

6230 PRINT364.CHR*<31 )! 

4240 PRINT3256.STRING*'20. 143)1" REECRITURE DU FICHIER "I 

143) 

4230 PRINT3384. "Lector* ooarat.on no ! "! 

4260 IF TV-UB THEN 4320 

4270 FOR T-TV TO UB-1 

4280 CET *1.T*1 

4298 PRINT3407.TI 

4300 PUT il.T 

4310 NEXT T 

4320 LSET B1*-STRING»'F.B. " ");PUT *I.UB 

4330 UB-UB-1 iZZ-UB 

4340 PRINT3717. "OPERATION NUMERO" ! TVl "BUPPfl IMEE DU FICHIER" 

4330 TM»! -DRAPEAU DE SUPPRESSION 

4360 FOR T-l TO 1B001NEXT TiGOTO 1000 



THEN 327B 



SUPPRESSION D'UNE OPERATION ' 



■STRING* (16 



NU*-LEFT*(N 



301 B ' 

5020 ' 

-i030 WR-0 

•104 B CLS 

5050 PRINT STRING*'24. 

5060 PRINT:PRINTiPRINI 

5078 PRINT"Voul*z-vou* 



IMPRESSION DU FICHIER 



IMPRESSIONS "!0»ISTRIND*(24. 16B) 



5080 PRINT3*37M. "Ind.ou*r I'optidn cHo.' 

5090 TU-9961 GOSUB 10000 

3IB0 IE I*-"3- THE" IB00 

5118 IF I»()-l" AND I»0"2" THEN 5090 

5120 IF I»=-l" THEN M-l ELSE U-2 

51 3B IF W-2 AND TY-0 ELSE 3130 

5140 PRINT396B. 5TRI NG* i 63. 32) 1 

5141 PRINT3973."La *.ch.*r n 1 *-.*!* oai 
3142 FOR T-l TO 1000SNEXT 

3146 PRINT3973. "Ut . I i •»* I'opt.on (5) i 
5143 FOR T-I TO [000! NEXT 1 0010 1BMB 
3150 PRINT396B.STRIN0*I63." ")|l 
VoulM-voui un* ntof*i»ion "I" imPfimai 
3160 TU-101 1 !G()*-JJB 10000 



IF I»()-0" AND I»(I"M- THEN 5160 

IF I»="0" THEN Ul-1 ELSE U!*0 

IF U1=0 "HEN 3280 

IF Ul-1 AND -PEEKi»H37EB> 0*0 (K80IOIHB0 TM£N 9000 

PRINT3960. STRING*' F.'. ' 

FOR T»l TO 1B:PRINT3973. "••• IM*»BIMONTE KW CONNCCTEE 

FOR K-l TO 3BINEXT K 

PRINT3975. ■•••- i STRING* ■ 26. 3D !-••■■ i 

FOR K-I TO 3B!W:XT Ki.NEXT T 

GOTO 5B0B 

CLS 

PRINT"N* "O*" Data "0*" Montant "0**Fof»* -Q*-D*t>*P* 




: .. It 

52iB 

■■■: Si 

sua 

9231 
3260 

a: .-.• 
K 91 

5298 

L.b*1 ■♦" 

5380 Tl-8 'nuarro <J* PH- 

5318 PRINT STRING»(3. 1431 IO*;STRING*<S. 16;>!0*!5TRING*' 10. 16--I! 
6. 143) !0»iSTRING*<3. 143) !0*JSTRING*( 29. 14 J) I 
3328 FOR T-T1*10.1 TO T1*1B*10 

5330 GET IM.T * lactur* a' un «t>. n .«>«w>.t 

5340 IF U-l THEN LSET BD*-NA»i L SET BE»"FO*tLSET BF1-DC*: 
*:LSET 8H»-M0*!LSET BI*'LI* 
5350 PRINT USING"** "tT:!pRINTQ*:9G*:0*l 

5368 IF BD*-"DEBIT " THEN PRINT ■- -| ELSE PRINT -. -t 
5370 PRINT BH«!0*:BEft:0*!BF*iO*:BI*i 
5388 IF H*l AND TOUB THEN 5620 
5398 IF W-2 AND TOUC THEN 5420 

5400 PRINT CHR*(31) : :PRlN7376e. STRING*' 24. 143)!" DERNIERE PACE ' 
. 143) 1 IUR-1 

5410 PRINT382B. "Pa-i* "::PRINT USING"***) "iTl::GOT0 344B 
5420 NEXT T 

5430 PRINT3768. STR1NGX5B. 143)1" Pai* -liPRINT USING"*** "iTlD 
G»(3. 143) 

5440 PRINT3837. "Pra-ssaz : (*) oour la pa** pr«<*d*nt*. - 

5450 PRINT3901." <•) pour la cav* su.vant*." 

5660 PRINT9965. " (3) oour ■* mmi - <S) Pour |« C4»|«mI du «0 
5470 I*-INKEV*:IF I*-"" THEN 5470 
5480 IF I*--3" THEN 1000 
3490 IF I*--S" THEN 5548 
5300 IF ASC(I*)-18 AND WR-1 THEN 5470 
53IB IF ASC(I*)-18 Tl-Tt*l-.PRINT3128. ""iiGOTO 5328 
5528 IF I*--*" THEN HR-Bi Tl-Tl-1 1 IF Tl <B THEN T I -8 J PRINT3128. "" 
ELSE PRINT 3128. ""IiGOTO 5320 
553B GOTO 5478 

3340 •••»• CALDJL OU SOLDE ••*• 
5550 PRINT3S32. STRING*<63. 32)1 

5560 PRINT36S0.STHING*(5. 160) t* CALCUL OU SOLOE "! STRING*! 5. 160 
5570 PRINT3963. "Do. t-on inclur* las ChrauM non d*b.t*s dana i* 
5580 TU*FNO<0) 
5590 GOSUB 1B0B0 

5&B0 IF [*<)"0- AND I»0-N" THEN 5390 
5610 D*=I* 

5620 PRINT3909. * (ENTER) prand la d*rn.*ra oar dataut. " l 
5630 PRINT3960. "Ju*Qu'a Quell* ownt.cn vOul*;-vOu» *f'*Ctu*r 
566B TU-1019 
5650 M*="-:ST"0:S-B 
5660 GOSUB 10000 

5670 IF ASC(I*)-8 AND TU) 1819 THEN M*-LEFT*(M*. LEN(M») -I ) ( 
NT3TU. ■'.": iGOTO 5660 
5680 IF ASC<I»)-13 THEN 5720 
5690 IF I*("0- OR I»>-9" THEN 5660 
570B M*-M**I*!PRINT3TU. I»! 
571B IF TUU02I THEN TU-TU*1!G0T0 3668 

3720 IF M»--" THEN IF W- 1 THEN M*-STR*(U8) ELSE M*-STR*(UC>- 
5730 PRINT31B19.M*! 

5740 H-VAL(M*)!IF M(l OR ( ( M) UB AND I 
TRINGX63. 32)1 



MlSTItlMO* 



LSET BGft-DO 



TU-TU-1 i PR I 



ON INEXISTANT-TiFOR T> 
5750 IF M-l THEN 5840 
5760 FOR T-l TO M 
577B GET *2. T 
5780 IF BF*-"NON" AND D* 



CO i 



NEXT IGOTO 5440 



THEN S--S 



■■.Fill! 
5820 
5830 
3840 
3830 
5860 
5870 
S880 
3890 
5900 
5910 
5920 



S-VAL'BH*) 

IF BD*-"DEBIT ' 

ST-ST.S 

NEXT 

GOTO 5910 

FOR T-l TD M 

GET *1.T 

IF DE»-"NON" AND D*-"N" TH1 

S-VAL'MO*> 

IF NA*-"DEBIT " THEN S--S 

ST-ST*S 

NEXT 

PRINT3900. "Sold* Juaau'a I' 

PRINT3960.STRING*(63.32)li 



TRS80 



"3" THEN 3938 



6018 ■ 

6028 ' 

&B3B Gl*< 

6040 CLS 

6050 PRINT STR[NG*(17. 140 

160) 



RECHERCHE D'UNE OPERATION 



iG3»-' 



10*1" RECHERCHE D'UNE DPr.Rf 



l\i 



[ON ■ 



6060 PRINT3199. ' Pa f amat r*« da rachai 

6070 PRINT TAB(3S) "/2f Forma." 

F.B8B PRINT TABC3) "/3/ Dab.t. '■ 

6090 PRINT TA»(33) "/4/ Mol» *t Anna*. " 

6100 PRINT TAB'33) "/3/ LibaM*. - 

6118 PRINTiPRINTTA8<35) '/•»/ Pour ravan I f *u "»nu." 

6120 PRINT3776. "Nuiaro d** oinwurM oalactionna* i 

613B PRINT3832.STRINGH62. 140) 

6140 PRINT" Indiouar oar *»*«i»i» " 125" oour un* r*eh*rrh* oar 1" 

6130 PRINT" Natur* . Form* *t L'b*'l*. " I 

6160 TU-B13 

6170 PA»--" 

6188 GOSUB 10000 

6190 IF I*-"3" THEN 1000 

62BB IF ASC<I»)-17. AND TU-813 THEN 6180 

6210 IF nSC(I»)-13 THEN 6270 

6220 IF ASC'I*)-8 THEN IF TU-F.B3 THEN 6160 ELSE PRI NT3TU. ". " ! I 

-LEFT*fPA».LENipn«)-l nGOTO GIB0 

6230 IF I«<-1" OR I*>"9" THEN 6180 

6260 IF INSTR<PA». I*) ()0 THEN 6180 

6250 PRINT3TU.I*liPA»-PA*»I*iTU-TU*l 

6260 IF LENfPA*) Or. THEN 6IB0 

6270 PRINT3192. CHRti - .l > 

6280 PRINT33S6. " " I 

6298 IF INfiTRiPA*."!")-© THEN 634B 

6300 PRINT-Natur* d* i*oP*rat.on : "I 

6J10 TU-FNA'B>!GOSUfi 10000 

6320 [F i*-"0" them PRINTBtlJ."0€BIT"»Ol« "DEBIT "iGOTO 6340 

6338 IF I*-"G" THEN PRINT3T1I, "CRrDl T" ;l.| 1 Citi ' 

6)1 iGOTO 6310 

6340 IF tNSTR(.PA*."2">-e THEN 6630 

6330 PRINT-Forma d* I'ooaration i "I 

6360 TU-FNA'0i iGOSUB 10000 

6370 IF I*-"V" THEN I'RINTMTtl. "Ul REMEN1" i02*-"VI REMT" IGOTO 6430 

6380 IF I*()"C- THEN PRINT CHR*< 26 > 1 1 (501(1 USB 

6390 PRINT31U. "C"l iTU'TU- 1 

6600 GOSUB 10000 

6610 IF I*-" A" THPN PRINT3TU. "ARTF l>l I I it ■■ !C. » TiitHI "ifillKI r.A.-.0 

6620 IF f*-"H" THEN PR I N13TU. "HEOUE" >G2*- , 'CME0UC" 10010 64 30 

CHR*(74i 1 iGOTO 6600 

6630 IF [NSTR(PO*. "V 1-0 THEN 6360 

6660 IF 01*()-" AND 01»O "DEBIT " THEN 634B 

6430 IF 02*<)"" RND 02*()"CHEDlll " tl"N BB*0 

6660 PRINT"L'or.*ration a-t-*Ma ataa d*b. t»a i "1 

6670 TlJ-FNA(0)KI0SUB 10000 

6480 IF I*-"D" THEN PRINTBTU. "OUI - i03»-"0UI " i GOTO 6540 

6490 IF I*-"N- THTN PRIN13TU. "NON" l03»- - N(JN- ! GOTO 636B 

6500 IF !»("«" OR 1»)"9" THEN PRINT CHR«( 24) 1 lOOTO 6360 

6310 (i4»-I* 

6320 TU-TU'l i GOSUB 10000 

6330 IF I*("0" OR [#>"•" THEN PHINT CHRU 26) I lOOTO 6320 

6360 IF INSTRIPA*. "4-1-0 THEN 6730 

6330 PRINT-Mo.* d* i*oo*r*tion CI a 12) ' "1 

6360 TP-FNA<0> 

6378 TU-TPiGaSUB 10000 

6388 IF !*<-«- OR I*) "9" THEN 6370 



Tll-TU-UPA* 



PltlNTCMt*! . 



i i '..i mini 



:untf fht<)r >' 



GALACTICA 

• suite du 
>V listing du N33 




' :=■.'.- i ■■ 
I X2=C(C2 2 1 " 
> X=S1 
! V-S2 
P-P-l 

• PRINT "TRflJECTOlRE M) MSSILE " 

. y>Y*X2 

■ if ■-:.,'_.'«■■:■■. «6.3 —:v .5 *<Y>*e.3>THEN , 
; PRINT STR«X)*"."S>STR»<Y»"-" 

■ **=■■ ■ 
; 21-X 

• 22"* 

i cosue : n 

, IF Z3*& THEN 343 

: GOTO 33? 

I fi»="i I" 

i -I--. 

I Z2"l 

: liui'Jc- I '1 

■ IF 23*6 1HEN 360 

{ PRINT "WERHTOR 0€TRU1T" 

. chll MX**- iee,sw.a ■ 

) CALL SOvNfX100.66«l,2> 

, K3-4C3-1 

! K?H»-1 

r IF K9<=e THEN 515 

I FOR 1=1 TO 3 

i IF INUX*.5>OKU,l.'TKEN &? 

\ IF INT'Y*.5>*K'.1.2>TNEN 358 

• NEXT I 

t KU.3>-0 
P GOTO 377 

21*X 
I 22=Y 

i cosue i7i 

I IF 23=9 THEN 367 

i PRINT "UN RSTRE EST INDESTRUCTIBLE!" 

I GOTO 3S3 



a cosue 171 

. IF 23=0 THEN J33 

J CPLL SOUND< 409. 229, 2 > 

i CULL SOUNTXSee, 118.3) 

1 PRINT Tfle<3>>"BflS£ OETPOIJE' 



I 21-INT'.X+.5> 
' Z2-INT'.Y*.5> 

] GOSU6 160 

. GCO1,Q2^100»K3*10*B3*S3 

! GOTO 384 

I PRINT ■ • 'MISSILE PERTXT 

> G0SU8 133 

i IF E<0 THEN 503 

» GOTO 11Z 

' IF tX7)>=9 THEH 390 

i PRINT "CONTPOLE DES BOUCLIEPS H.S.' 

t GOTO 112 

I PRINT -ENERCIE OISPQNIBLE ";E+S 

, INPUT -C0IT8IEN POUR LES BOUCLIERS ' 

! IF X<=0 THEN 112 

I IF E+S-X<8 THEN 390 

\ E=E+3-X 



396 GOTO 112 

397 IF D<6»-0 THEN 490 
39? PRINT "CONTPOLE DES DOWflGES H.S." 

339 GOTO 112 

400 PRINT " imcHINE 6 NIVEAU" SEP* 

401 FOR Rl-1 TO 8 

402 PRINT Rl.SEG*fD».Rl*10-9.10>."« " , INT< D< Rl :■ 

403 NEXT Rl 

404 GOTO 112 
495 PRINT "OURORRNT HtllCRL" 

406 GOTO 112 

407 FOR I-Sl-1 TO 81*1 

408 FOR J=S2-1 TO S2+1 

409 IF <l<l>+<I>8>*tja)*(.J>8>THEH 415 

410 Ft*>"pq" 

411 Zl-I 

412 22= J 

413 GOSUE 171 

414 IF 23=1 THEN 420 

415 NEXT J 

416 NEXT I 

417 00-0 

418 CS="" 

419 GOTO 428 

420 00=1 

421 CALL 3CREEN(8> 

422 C«="R" 

423 E-3080 

424 P-10 

425 PRINT ■-- RMflRPFlGE-E'OUCLIERS LEVES" 

426 S=0 

427 GOTO 435 
423 IF K3>B THEN 432 

429 IF E<E0*.l THEN 434 

430 CRLL SCREENC4J 

431 GOTO 435 

432 CALL SCREENOJ 

433 GOTO 435 

434 CRLL SCREENC12) 

|1 lh?&> = %m !0URTE PORTEE H.S — 

lib PhIWt<sep» 

439 PRINT SEGSC0V1-16): ,'SEQKQ», 17, 16 >, "RNNEE" , T SEG«'- rj5 . 33, 16 > SECV.RS, 1 , 16) 
."QijflDPPNT "S.STPSCQ1 >;." ,"Z,^fF*'.QH> SEGV.RS. 17, 16?, "SECTEUP "fcSTRKSl >V, "tSTR» 
'.S2; 

440 PRINT .SEG*(R»,33.16),"ENEkGIE , ':lt 
17, 16 >. "BOUCHERS" Tfitt 23 >> IKK S > - SEl 

441 RETURN 

442 IF rK8»=8 THEN 445 

443 PRINT "OPOINHTEUR H.S. " 

444 GOTO 112 

445 PRINT 

446 PRINT "RRPPOPT GENERRL" 
PRINT i "IL RESTE";K9,"IMPERHT0R", 
IF K9<2 THEN 459 



-0 



-99/ A 



RINT 



PRINT "R RBflTTPE" TRB',9 >,B9, ,, BRSE" 

IF B9<2 THEN 453 

PRINT "S", 

PRINT TRB<9.-.T0«T9-T,"RNNEE", 

IF T0*T9-T-:2 THEN 456 

PRINT "S"i 

PRINT 

GOTO 397 
i PRINT 

I INPUT "ENERGIE POUR LR PLPRRHT ION 1 
! IF X<=0 THEN 112 
, IF E-K<0 THEN 458 
> PPINT "NUMEPO OE LR MACHINE ", 



,SEG*'.S*-l,16J,"niSSILES"*P SEG*CS», 



-'. </_■:'.■!■ 1:-. 

464 FRUIT 

HEN 462 

-It-" IF r> --::■ ■ . -hf. 469 

467 pftim . . 

4-;i got.- iia 

469 D '• ■- '■[»■ •■ ■■■. ■"-■!;" _ ■ 

470 E=E-/ 
J71 G'JIO 397 

472 IF T5*V7=0 THEN 475 

473 PPINT "RRYOH I'ESRCTIVE" 

474 GOTO 112 

475 IF E/=230 THEN 478 

476 PRINT "MRHO'JE O'EltPCIE' 

477 GOTO 112 

473 PRINT " RfVi-ON C'EPLOYE" 

47? E=E-250 

439 ON INT'PN0»5'*1 GOTO 481.484-488,495,497 

481 PRINT "TEMPS SUSPEMDU POUR LES in- PERRTOPS" 

482 T5=I 
4S3 GOTO 112 

464 PRINT "LES IMPEPRTORS DEV I ENttNT - " IN-/ISIBLES" 

485 V7=l 

4S6 GOSL« 142 

487 GOTO 11Z 

488 PPINT "LES IMPERMORS SOtn OETRUITS- 

489 FOR 1=1 TO 8 

498 IF KCI,3X=0 THEN 433 

491 K(I,3>"-1 

A3 2 G0SU8 123 

493 NEXT I 

434 IF K9<=0 THEH 515 ELSE 112 

495 PRINT "L'ESPPCE EST TRFWSFORttE" 

436 GOTO 68 

437 IF RN0>".75 THEN 501 

438 PRINT "DISFONCTlONNEnENT- 
■133 GOSUB 142 

599 GOTO 112 

501 PRINT "LE TET1PS S'EST HRRETE POUR VOUS I" 

502 GOTO 510 

503 PRINT - "LE VH1SSERU EST DETROIT !" 
594 IF K3<=9 THEH 511 

505 GOSUB 138 

506 GOTO 504 

507 PRINT "HN-iT 
50S GOTO 511 

509 PRINT 

510 PRINT "VRISSERU OETRUIT, FEDERHTIONCOTWJISE- 

511 PRINT "IL RESTE"iK9--IMPERFtT0RS" "B H8RTTRE- 

512 Y=-l 

513 GOSUB 544 

514 GOTO 11 

315 PRINT ^"MISSION RCCOMPLIE" "LR FEDERATION EST 
3AUVEE" "VOTRE EFFICRCITE^ ", 

K7AT-T0)»1E3 

316 Y-l 

517 GOSIJB 544 

518 GOTO 11 

519 CALL CLEAR 

520 PRINT TR8(9>i"GHLRCTICfl"' ■•'"" = ■ ■"" 

521 CRLL CHRRC37,"OF1O20FFFF3F1F08-) 

522 CALL CHFRC98,-E01008FEFEF9Ee4B") 

523 CRLL CHRR( 1O5,"0103040B78FF7F1F-) 

524 CHLL CHRR(10e,"808040283CFEFCF0-> 

525 CALL CHRP(112,-132442427FFFFF7F") 

526 CALL CHAR<;il3,"39488484FCFEFEFC"> 

527 CRLL C0L0Rt9.3/l> 
523 CHLL COLOR* 10, 13,1) 
529 CHLL C0L0RCU,6,1>- 

330 SEP*=" _„_- 

331 CALL CHHRC33,-'800080FFFF"> 

532 CALL CHHR(120. , -C101O33F9F96OC08" > 

533 CALL CHHRC 121 , "000080F8E0C06O2O" > 

534 CALL COLOR( 12,11, 1> 

535 CRLL CHAR<64,"18131S1818181818"> 

536 FOR 1-1 TO 8 

537 PRINT TRB(RNDt27+I >;"xs~i TR8t27*RND+I >i " 1 j- 

538 NEXT 1 

539 Y=INTCRNOt20)*2 

540 X-INT<RND»28H3 

541 CRLL HCHRR(Y,X,97> 

542 CALL HCHRR(Y,XH,98) 

543 RETURH 

544 FOR 1=1 TO 18 

545 READ X 

546 CRLL SOUNOC 120,>:*Y4 1 19-4?3*(Y~1 >, 1 > 

547 NEXT I 

548 DATA 4,5,6,7,3,6,5,2,7,4,6,4,3,3,5,4,7,8 

549 RETURN 



YAHTZEE 



Autre nom du jeu deyam's bien connu le YAHTZEE peut se 
jouer seul ou & plusieurs. Votre FX702P vous servira de ter- 
rain de jeu et assurera le respect des r&gles et le decomp- 
te des points. Vous pouvez jouer seul ou a deux. 

Frederic HOUROU 

Mode d'emploi : 
Faire Fl PO et c'est parti ! 

On donne tout d'abordjenombredejoueurs participants (n 22) etleti- 
rage des des s'affiche. 

Pour garder les des interessants, il surfit simplement d'eliminer les des 
qui ne le sont pas. 

Pour les eliminer, appuyez sur la louche correspondant a la place occu- 
pe« parce de (1 a 5). 
Par exemple 416 5 6. 

Le FX attend que vous appuyez sur une touche. Par exemple ici, si Ton 
veut garder les 6, il suffit d'appuyer sur 1.2,4 et ne restent affiches que 6 
et6. 

Pour indiquer a I'ordinateur que votre selection est faite, il suffit d'ap- 
puyer sur t. Alors, un nouveau tirage se fait en fonction de votre choix 
Vous n'avez droit qu'a 3 tirages et au bout de ce dernier appa rait a I'affi- 
chage : "CHOIX T, vousdemande votre choix (c'est-a-dire la case dans 
laquelle sera plac6 votre score) voir regie du YAHTZEE original. II suffit 
pour cela d'apppuyer sur la touche qui correspond a la figure choisie : 
88 1 



deux 


2 


trois 


3 


quatre 


4 


cinq 


5 


six 


6 


BRELAr- 


B 


CARRE 


C 


FULL 


F 


PETITE SUITE P 


GRANDE SUITE G 


YAHTZEE Y 


CHANGE S 




L'ordinateur venfiera si vous avez vraiment !a figure choisi. Si vous ne 

I'avez pas. l'ordinateur comprendra que vous barrez la case choisie. 

Par exemple : tirage : 55355 CHOIX? 

Si vous appuyez sur Y l'ordinateur s'apercevant que vous n'avez pas de 

YAHTZEE, il mettra une barre a cdte du mot Yahtzee. et ce, pour chaque 

reponse. 



Detail : Ouand vous etes en face d'un tirage si vous appuyez surLappa- 
rait une suite de chiffre et de lettre. C'est en fait, la liste de votre "car- 
net". Les figures sont symbolisees par lecaractere qui leur correspond. 
Si un B apparait, c'est que vous avez deja joue cette figure. 
A la fin du jeu? l'ordinateur calcule les points. 
Enfin, d'autres details s'ajoutent au programme permettant une plus 
grande facilite d'emploi. 






« jora? 


188 PRT -m 1=1 TO 


475 FOR 1=1 TO 13:6 


ET 


o' h K , 


i 


I3:SSB SB8:IF 


SB IH89:6SB 68 


494 PRT "CIH6";:RET 


1ER J. 


RtSiPRT "-""60 


8: IF R=99lPRT " 




\ 1 


334 13 t 


TO 182 


/":60T0 477 


495 PRT "SIX";:RET 


J 1 


336U 1 


181 PRT HI0C1.I); 


476 PRT R 


496 PRT "BREL8H"::R 


/ 


I 3 3 6 6 3 CHOIX? 


182 HEXT I:F0R 1=8 


477 HEXT 1 : MEXT P:H 


ET 


otS*v^V — 




TO 68:HEXT I: Pit 


EXT «:S=6 


497 PRT "CI«RE";:RE 




i» LISTE » 


T :60T0 IB 


478 FOR P=l TO Z:6S 


T 


© /ff\\ 


IS 8 


«8H=P:F=l:IF 8=FR 


B 488:S=8:F0R 1 


498 PRT "FULL": :RET 


© Li l) 


DEUX 8 


RC (P/2iF=lM:K 


=1 TO 13:6S8 68 




IROIS 8 


=11-1 


8 


499 PRT "P. SUITE": 


® \x2j 


1MIRE 9 


481 K=INT (H/2»l:U= 


479 IF R=99IR=8 


:RET 


CINt 8 


13«H-8:KT 


481 S=S(R:PRT SMF 


588 PRT "G. SUITE"; 




SIX 8 


458 GSS 688: IF «=8 


I=6:IF Si63:S=S 


:RET 




D6E18N 8 


THEH 469 


»35:PRT "==>i35 


581 PRT "YAHTZEE";: 




CARRE 8 


468 PPT "DEJfi JOUE" 


" 


RET 




FULL 25 


:S=8:80T0 18 


482 HEXT I:PRT "JOU 


582 PRT "CHflHCE";:R 




P. SUITE 8 


469 IF SiBlfOP J=8 


EUR";P;S:HEXT P 


ET 




(. SUITE 8 


TO C60T0 471 


:EH0 


688 T=H(U*I):IFF>1 




fflHTZEE 8 


478 FOR J=B TO 4: IF 


498 PRT "f!S";:RET 


;R=IHT CFRflC !• 




CHANCE 8 


8(J)=IlS=S»I 


491 PRT "0EUX";:RET 


F 




1E8 J. 


471 8(J)=8:HEXT Jifl 




681 IF F=l!R=IHT T 






(U»!)=T«S/F:PRT 


492 PRT "TR0IS"::RE 


682 RET 






iPRT "h LISTE 


T 








it" 


493 PRT "QlfflTRE";:R 





HELICOPTER PILOT 



Laeronavaleva tester voscapacitesdepiloteetdemilitai- 

re. II vous faudra reussir Ie premier tableau pour passer au 

second. 

Ce jeu necessite une extension 3K, neanmoins les pos- 

sesseursdeVICdebasepourrontjoueraveclepremierta- 

bleau. Pourcela. supprimerles lignes 920, 930, 990a 1030. 

et 1080 a 1570- 

Philippe BOICHUT 



co^°°o* E 




^s& 



136 FORCMT019 PRINT"*>ir. FORH-BT 0208 NEXT 

140 PRINTMIMt- HELICOPTER PILOT". G, 1 >, NEXT 

150 F0R12-1TO22 PRINT"=Oir. FORH-0TO78 : NEXT 

160 PR1NTMIDIC" «•>*■■■•>_ -a^-a'-.Q.l); NEXT 

170 F0RT-1T01388 NEXT 

180 PPINI-KIOO VOUS VOUS DIRIGEZ A XL'FUJE DES CUR5EURS.' 

190 PQXE52.28 P0KE36.28 

2W 0-7168 FQRH3-0T0Q*3ll POKEM3,PEEK<M5*25600> NEXT 

210 F0RO-7443T07319 RERDH6 POKE0,H6'NEXT 

220 FORO*7640TO7671 RERDH6 P0KE0.H6 NEXT 

230 POKE36869.253 

240 DHTR24.68. 126.255-255-255.233-235 

250 DATH25S, 127.58.26.25.7,3.1 

260 WTB235, 235- 170. 1 78. 235- 255. 255. 255 

270 DhTA255,254. 172.168.240.224,192.128 

233 DH.TA17, 10,4,10,17,0,0.8 

290 DATA15.8,253. 127,63,31. 13. 7 

380 DflTR240, 128,248.40, 36.36, 48,248 

310 BP.TA235. 139, 199. 199- 199,255.253,235 

328 WTm6.S6.S6.36.36.24. 16, 16 

358 D*TA3.3,3.3,3,3,3.3 

348 DfiTA13,31,63.63, 191. 191.191.235 

350 DRTH192. 224.246,248.244,244.244.232 

368 DRTH124. 68. 63. 124,64,64.64,64 

370 H2-3W3-8 2*36869 PQKEZ+18, 169SC-0 

388 G1»Z»3:G2-Gl-1 G3-G1-2 

398 I-128-P0KEZ.255 TI»-"880880" 

400 IFH2-8 THEN898 

418 PRlNT-m '<) 'O 

428 IFH3-1THENPRINT"* ":QOT044S 

438 IFK3-2THENPRINT"* 

448 PRiNT B saraaaaaanaDBoaDoaiuu»*-**t«N*atiaatiN«*-i-i", 

458 PRINT"* W 

460 H6"IMT':RN0<n<22>*l 1-1-18 

478 fl-lNTCRNDCl>*17+l):PRINTTHB(R>""mi W 

488 PKlNTTnB<.Pu"mZZf 

498 PRINT"*" 

318 GETft* IFRS--1TTHEHH6-H6-I 

328 IFR*-"H"TH£NH6-H6-*1 

538 IFH6M87HENH6-18 

548 IFX6O0THENH6-0 

338 PRINTTBBO+6>"!a-or 

568 FQRH9-1TOI+20 NEXT 

370 P0KEG1.13 

588 PQKEG3.INT'.RNTJa>"-10*238) 

598 PRINT-H 

688 VI»V1*1IFV1-19THENPRINTTR8W» *"-GOTO620 

610 GOTOSie 



620 IFH6=flTHEN640 

630 GOTO660 

648 fl-BH6«8^Vl-8 H9-0 

630 POKEO3,0:FORT=1TO 308 NEXT H9-0 GOTQ4B0 

660 POKEG3.0 PGKEG2,220:H9' " 

670 PRINT 

638 PRINT 



••»•!.• •.*........,., 



698 PRINTTABCR>"Tm til" 

780 PKiNTtf>B(.n)"$zy.i,X" 

710 FORCL-0TO8:POKE646,CL 

720 P0KE646.CL 

730 PRINTTRS(H6) ,, T1'<>B" 

740 FORGO-1TO50 NEXT NEXT 

750 P0KEG3 . 8 ■ P0KEG2. 220 : H9"0 ■ H2»H2- 1 

760 POKEZ-4,39 

779 FORQ- 1 T01 : NEXTO ■ P0KE3686S, 37 

788 FQRO-lTOie^NEXTQ 

798 H9-M9*1-IFH9<23THEN760 

888 FORL"13TO0STEP-2:POKEOl.L 

310 FQRH-1TO100-NEXTM 

828 NEXTL 

838 POXEG2,0:POKEG1.8 

348 FORM-1T0 380 'NEXT R-0^ Vl=e:H9-9 

830 IFH3-1THEN878 

868 H3-1-G0T08B8 

878 H3"H3*I 

888 GOT04B8 

998 PRINT"^--POKEZ,240 

988 TP*-RI0HT«<TI*,4) 

918 ?SIHT"WCBIIHI TEMPS :";TPJ 

928 IFTP*>""0I18' , THEN990 

938 IFTPJ-CBllB'THENPRINT-MBEE N'EST PRS ENCORE JPOUR MRINTENRNT' 

948 PRINT-MUMS UNE AUTRE <0/NJ' 

338 OOSUBI030 

968 IFE*-"O"THENVl-0 ■ fl-0 ■ HZ-3 : W3-8:H9-8 ■ TI*-"08800B" ■ GOTO390 

978 IFE#""N"THENGOTO1040 

980 G0T0938 

998 PRINT"WW1 ERE EPREUVE REUSSIE 

1800 PRINT"BB ATTENTION POUR Lfl ■ DEUXIEfTE" 

1010 PRINT"KIW*VOUS TIREZ RVEC LP. BARRE D'ESPfiCE!" 

1828 PRINT'OT ftPPUYEZ SUR 'SHIFT'! "-POKE198.0 

1030 WAIT653.1 GOTO1080 

1840 PRINT";?' ■ POKEZ+10. 27 : POKEZ. 240 : END 

1830 POKE198-0 

1060 OETE»:IFE$-""THEN1060 

1070 RETURN 

1080 POKE630, 128 -SC-0 

1090 PRINT-31 > ";SC; POKEZ, 253 

118B POKE3130,39-POKEZ+1981,8 

1118 P0KE8IS2, 68 i POKEZ+2803, ■ POKEZ+2884, - P0KE8133.61 



1120 P0KEG1.I5 P0KEQ2,229 

1130 G6-7703 07-38423 

1148 P0XEG6.39 P0kEG6*l,49 POKEG6*2,41 

1150 POKEG1.0 

1168 P0KEG7.2 PQKEG7»1,2'POKE07*2,2 

1178 P0KEG1.15 PWEG2.229 P0KEO1.8 

1160 IFH5-1THENRETURN 

1 190 IFG65B069THENG6-8872 H3-1 G0SUB1 140 G0T01448 

1200 F0RG8-IT088:NEXT 

1219 POKE198.0 

1228 G3-PEEK<203> 

1230 IF09O32THEN1278 

1240 POKEG2,8 

1258 P0KE36878.15 PC<k£36876,230 FORT-1TO80: 

NEXT i POKE36876 . 8 i GOSUB 1 398 

1260 P0KEG1-15 

1270 P0KEG6,32 P0KEG6*1.32 P0KEG6»2.32 

1260 G6=G6*3 G7=G7*3 G4-8188 G3-38328 G0T01148 

1290 G4=81B8-G5-3S828 

1308 P0KEG4.43 POKEG5.0 

1310 IFPEEK(G4-22)=39THEN3C-SC*I0 Hl-1 G0T01338 

1329 IFPEEK'G4-22J=4^THENSCaSC*5-Hl-l,G0T01358 

1330 IFPEEK<G4-22>-4lTH£NSC-SC-3 Ml-1 C-0T01359 
1340 G0T01378 

1350 PRINT'S > "iSC 

1368 IFSCC-9ANDSO— 9THENP0KE7689.32 

1370 REM 

1388 IFH1-1THENPOKEG4.32 HI-0 P0KEG3. 8 RETURN 

1398 P0KEG4,32G4-G4-22G5*G5-22 

1400 IF04O7712TMEN1388 

1410 IFG4=7712THENSC-SC-5-PRINT "■ > -;SC 

1428 IFSC<»?ANDSC>— 9THENP0KE7689.32 

1430 POKE 198.8 P0KEG3.B RETURN 

1440 F0RT=1T01388-NEXT 

1458 P0KE36869.249-PR1NT".-HHKB1 TERMINE" 

1460 PRINT"WB VOTRE SCORE";SC 

1478 PRINT-lffiCIWra MAXIMUM POSSIBLE ■ 1 70' 

1460 GOSUB1540 

1490 PRINT"IBWE UN AUTRE ESSAI <G/N>" 

1509 GOSUB 1050 

1510 IFE*""0 M THENCLP POKEG1,0:POKE36877,0;OOTO370 
1528 IFE«="N"THEN POKE 36879,27 PRINT'Tr END 
1330 GOTO 1500 

1540 ]FSC<5eTM£NPRINT"«W« LAMENTABLE" 

1550 IFSC>=58AHDSC<130THENPRINT")BIIB PERSEVEREZ" 

1560 IFSC>-130TH£NPRINT"MB> PAS DE DOUTE.VOUS * 

SEREZ UN EXCELLENT PILOT 

EM '" 

1379 RETURN 



* 



Suite de la page 5 



TRS80 



G398 PPINT3TU. I»: 

£600 :■'.* -:* 

6610 TU-TP*1 iGOSUB 10000 

6628 IP I»<"0" OR I«)"9* THEN 6610 

6630 PRINT3TU. !•! 

6660 G4»-G4»-I»: IF VOL(Di»))12 THEN PRINTaTP." "i:DOT0 6 

S650 PRINT>PRlNT~Ann** n* i'oD*r*tlon '? chlftr*s) ' "1 

6660 TP-FNA<0) 

6670 TU-TP 

6660 GOSUB 10008 

6690 IF I»<-0" DP I*>*9" THEN POIMT CHR«f 24) ! sDOTO E6e0 

6780 PP1NTSTU. l%\ :TU-TU*1 :G4«-GA«*"/-*I» 

6710 GOSUB 10000 

6720 IF I»<"0- OP 14) "9" THEN PRINT CHRtf 24) 5 JGOTO 6710 

6730 PRINT3TU- I»l 

6748 C>4-04**I« 

6750 IF INSTRfPO*. "3" J -0 THEN £880 

6760 PRINT"L.b»l I* ' "l 

6778 TP-FNP(B)-29 

6780 TU-TP 

£790 GOSUB 10000 

£800 IF »SCfI»)-e THEN PBINT3TU. ". "1 ITU-TU-IHF TU<TP THEI 

G3«.LENfG3»)-l ) JGOTO 6790 

6818 IF ftSCf I»)-2ii THEN PP1NT3TP, " 

---iGOTO 6790 

6820 IF !«•- ' THEN £850 

683B IF PSCrl»>-13 THEN 6880 

6840 IF I»<"0" OR I»)"z~ THEN 6790 

6850 IF LEN'G5*>)28 THEN £790 

6860 PRIMT3TU. I*:jG3»-G3«+I« 

6878 TU-TU*l:GOTO 6790 

68S0 ••••CPEOTIDN FICHIER TRIE*** 

6890 TY-1 'OROPEOU FICH1EP SGCONDRIRE EXISTE 

£908 CLOSE 02 

6918 KILL "FICHSECO/TIC- 

692B OPEN "R-.2.-FICHSECO/FIC-.60 

693B FIELD 12. 60 fiS BB» 

6960 TZ-01TD-1 

£950 PRINT3896.5rRINC4'E3. 1&0>: 

6960 PRINT3960. "LECTURE OPERATION NQi 

6370 FOR T-I TO UB 



FCRITURE OPERRTION NO J' 




£980 PPINT39S3. 

£990 GET »1.T 

7B00 IF G140 

701B IF G2»<) 

7820 IF G3»<) 

7030 IF G4*<: 



'PINT USIN0"""""lTs 

OND Gl •<>«*>« THEN 7890 

BND G24OF0* THEN 7B9B 

PND G3««)0E« THE'N 7090 

HND GA»()RIGHT»(DO*. 3) 



7848 IF 0»O" AND INSTR'LI*. G34) -0 THEN 7B9B 

7850 LSET BB4-B1* 

7B6B PUT mi, TD 

7B7B PP1NT31018. " " : ' PRINTUSING"«"»" i TDl 

788B TD-TD+1 

7890 NEXT T 

710B UC-L0F<2) 

7118 GOTO 1000 

7300 • 

7318 ' FIN DU PROGRAMME 

7320 ' 

7330 CLS 

7332 PRINT STRING»'22. l*«M0t!" PIN DU PROGRAMME ' 



7348 CLOSE »2 

7538 IF TU-0 THEN 7788 

7568 PPINT3448, STRING*' 12. 143)t' 

(12. I43J J 

7578 OPEN "R",lt2. '•FICHSECO/FIC", 

7580 FIELD HC'. 68 OS BB» 

7390 FOR T-! TO UB 



STRING»'22. 



REECRITURE DU FICHIER ■ F 1CHPRIN/FIC" 



7E00 GET «1,T 






7£10 LSET BB«-B1»JPUT »2. T 






7E20 NEXT T 






7E3B CLOSE PI 






7635 KILL"FICHPRIN/FIC" 






7648 OPEN "R". 1. "C1CHPRIN/FIC". £0 






7650 FIELD •!. 60 AS 81« 






7G60 FOR T-l TD LOF(2> 






7678 GET t2, T 






7680 LSET 814-BB4JPUT "1 . T 






7690 NEXT T 






7700 CLOSE 






7703 KILL "FICMSECO/FIC" 






7710 IF TG-0 THEN 7740 






7720 PRINT344B.STRING4(19. 163) i" RAUVEGORDE DU PROGPQMME "1 

163) i 

7730 SOVE'-GESTION/BftS" 




STRIN0*119. 






7768 CMD"S" -RETOUR RU DOS 






7750 END 






8010 ' MODIFICATION NUMERO DE CODE 






8020 ' 






803B TG-1 "DRAPEAU MODIFICATION DE CODE 






8040 CLS 






B85B PRINT STRI NQ«f 16. 140) tO*i •' MODIFICATION NUMERO DE CODE 


10* 


1STR!N0*(16 



>-N~ THEN B070 



8860 PRINT3453. " 

807B TU-584: GOSUB 100B0 

8080 IF lt-(> "0" AND !*<>• 

8090 IF I»-"N- THEN 1800 

El 88 VR-PEEK(VARPTR(£»)*l)*PEEK''VQRPTn(E«)*2)*256 

eil0 IF VA>32767 THEN Vft-VA-63336 

8128 PRINT3468.STRING4U9. 143) 1" CODE CONFIDENTIEL 

• 163) 

813B PRINT3832.S V TRING»<E3. 140) ; 

8160 PRINT3899. "S. vous comn-tt-7 ur.- »fr*ur avant 

8130 PRINT3963. "ch.ff r». vout pouvvi .,...,..,.,■,■.■ «u .:. 

8160 04-"" 

8178 TU-48B 

8180 GOSUB 10000 

8190 IF flSC'I»)-8 THEN PPINT34BB." "i:GOTD 0160 

8280 IF I*("0" OR I»>"9" THEN 8180 

B210 PRINT3TU. "»" tiTU-TU+1 

8220 R4-A**ItUF LEN<A4)-4 THEN 8240 

B230 GOTO BIBB 

8260 FOR T-0 TO Z' POHEl VA.T) . RSC MID4' 0». T. 1 . 1 • J : NEJ 

B2S0 GOTO 1008 

9000 ' 

9018 ' IMPRESSION SUR PAPIER 



STRlNG»ft9 



iPG-HST-l 



[MPPf.GSION SUR ' 



\p\\ 



9030 NL»-"1T-': 

9048 CLS 

9050 PRINT STRIN04I 19. 168) iOH' 

140) 

9060 PRINTiPHINTiPRINT 

9070 PRINT366I. "N»nbr* d* i,in«i ear P>«* i .."1 

90e0 PRINT3527. "(ENTER) or-na 'EG- Par dff'aufl 

9090 TU-491 

9100 GOSUB 10888 

9110 IF I»-"3- THEN 1000 

9128 IF ASC<!»)-13 AND TU-491 THEN NL4--F.F." 1 PRINiaTu. NL»I 

9130 IF OSC(I«)-13 THEN 9170 

9168 IF nSCd«)-B THEN IF TU-491 THEN 9100 ELSE TU-TU-li 

L*. LEN<NLa)-l) IPRINT3TU. ". "I 

9130 IF I»("0" OR I*) "9" THEN 9100 

9160 PRINT3TU. I«t ITU-TU«1 1NL«*NL4*I»I IF TUI49!; 'Mlrj 'jUHI 

9178 NL-VAL'NL*) 

3180 IF NL(10 THEN NL«-*"lCOTO 9070 

9190 PRINT3468.8TRING4<£3.32) 

9200 PRINT3463. "Pr«u«x (ENTER) ioiiou* I'lMriMM*" 

9210 PRINTB329. "*»i oo».tionn»» -n d»oui b* »lf*r 

9220 PRINT39II. "Pr»a«»i (3) eour r»v«n . r au »»fiu. " 

9230 I4-INKEV4UF !•-"'■ THEN 9238 

9260 IF I»-"3- THEN 1808 

9258 IF «GC<I») O 13 THEN 92T0 



GOTO 9178 
NL»-L£FTT.(N 



suite page 18 



CARNET D'ADRESSE 




Ce programme permet de tenir un carnet d'adresse. Les 
operations possibles etant ; la recherche d'une adresse, 
modification, ajout. suppression et listedu fichierd'adres- 
se. 

Rien de tres original si ce n'est la methode d'acces aux ar- 
ticles du fichier. 

Vincent Dl SANZO 



Mode d'emploi : 

L'acces direct tel que le permet le DOS 3. 3 suppose la connaissancedu 
rang de 1'enregistrement dans le fichier, or il parait difficile d'annoncer 
un nom a un numero Aussi ai-je simule unacces indexe sur le nom. Qui 
dilacces indexe, ditiabled'index.Celleci est conservee dans le fichier, 
ce qui evite d'avoir a le recreer a chaque utilisation du programme. 
Nous nous limitons a 100 articles maximum (102 !) 
Stockerun fichier ; longueur d'article 82. Les 17 premiers articles con- 
tiendront la table d'index (6 noms par article) 

Principe de recherche d'une adresse : on recherche le nom dans la ta- 
ble index, une fois celui-ci trouve, I'tndice ou le rand -MSdonne !e rang 
de 1'enregistrement dans le fichier Cela suppose que Ton a initialise 
une table en memoire a partir de la table d'index residant sur le fichier. 
Ajout dune adresse : On recherche dans la table un "trou", s'il n'y en a 
pas on prend la premiere place suivant le dernier poste occupe. 
Suppression dune adresse : on cree un trou dans la table. 
On positionne un code de suppression a dans 1'enregistrement sup- 
prime. A chaque operation modifiant I'etat du fichier il y a reecriture de 
radicle ou se trouve le nom index (on ne reecrit pas toute la table !) 
Reecriture de 1'enregistrement modifie. 
Interets de la methode : 

- acces indexe sur le nom 

- creation table d'index raptde puisqu'il s'agit de recopier la table de 
disquea memoire 

- Pas de reorganisation de fichier puisqu'on gere les trous. 

- Securite. en cas de plantage ont peut toujours reconstituer le fichier 
d'index grace au code de suppression d'enregistrement et a un pro- 
gramme non fourni ! 

- methode simple et efficace tant que le fichier reste de volume faible 
(notre cas). 

Inconvenients : ce n'est qu'une methode qui demande beaucoup de ri- 
gueur dans la programmation et d'un peu d'astuces. 



MP-F" 



30 WR4 - CMR* (4) - "WRITE FICHA 

D,R- 
40 OP* - CHR» <*> • "OPEN CiCHOD 

,1.92- 
50 CL* a OHRt 14) • "CLOSE FICHA 

0'- 
U NORIH1 
70 "D«E : INVERSE 
HO PRINT SPC< 40) 
90 PRINT TAB< IDs-CARNET D'ADR 

ESSE"!: PRINT SPC < 14) 
100 PRINT SPCf 40): NORMAL 
HO POKE "4,4 
120 PRINT : PRINT : PRINT 
130 INPUT " EST-CE LA CREATION 

U CARNET (0/N) ";A* 



NEXT J 

NEXT I 

PRINT D* 
NB - K - 1 

FOR R - V. * 1 TO 99 
T»(R) - "••»»••»••••»■ 

NEXT R 

1 REM MENU PRINCIPAL 

HOME 

PRINT : PRINT : INVERSE 
PRINT SPC( 41)» 
PRINT "1- CONSULTATION AVEC/ 
SANS MODIFICATION "t SPC( 41 



PINT 



PINT 



170 INVERSE 

1B0 PRINT SPCf 40) 

190 PRINT "LE FICHIER PRECEDENT 

VA ETRE OETPUIT "; 
20O PRINT SPCf 40) 
210 NORMAL 
220 PRINT 
250 I NVERSE 
240 INPUT " CONTINUE*-' 

OUS (0/N) ";A« 

250 NORMAL 
2*0 IF M ' > "N" ANO A* •: > ' 

O" THEN 24© 
270 IP A* - "N" THEN 370 
280 PRINT OP* 

290 PRINT D«; "DELETE FICHAD" 
300 print OP» 
310 FOR I - O TO 16 



600 PR I N 



320 I 



NORMAL 

PRINT : PRINT 

INPUT "ENTREZ VOTRE CHOI! 



■ 4 THEN 640 



GOTO 330 

REM RECHERCHE DANS FICHAD 



IF CODE* ' 



THEN RETURN 



HOME : PRINT 

INVERSE 1 PRINT "OONNEES POS 
SIBLES"! NORMAL 
: PRINT : PRINT : GOSUB 2690 
WTAB 71 : HTAB 1 
PRINT "OESIREZ-VOUS MODIFIER 
6u SUPPRIMER" 

INPUT "CEr ENREGISTREHENT (O 

/N> "iA* 

IF A» < > "N" AND A* < > " 
O" THEN eeo 

IF A« » "O" THEN GOSUB 1510 

RETURN 

REM NOUVELLE INSCRIPTION 



930 
939 
940 



930 HOME 

960 INVERSE : PRINT ■ NOUVELLE 
ADRESSE " : PRINT 



9SO CODE* - " 1": GOSUB 20201 

:B* ■ NOM* 
990 GOSUB 2090: PRINT 
1O00 GOSUB 2160: 
1010 GOSUB 2230s 
1020 GOSUB 2300: 
1030 GOSUB 2360: 
1040 GOSUB 2430: 
103O GDSUB 2500: HOME 
IO60 INVERSE 
1070 PRINT "INFORMATIONS SAISIES 

10B0 NORMAL : PRINT 

1090 GDSUB 2690 

ilOO PRINT : INVERSE 

II 10 PRINT 

1120 INPUT "VALIDEZ-VOUS CES INF 

ORMATIONS (0/N) ")A* 
1 1 30 NORMAL 
1140 IF At < > -O" AND A» < > 

"N" THEN 1120 
1I50 IF A* = "N" THEN 550 
1160 FOR K - 1 TO NB 
1170 IF T*(K) - - - THEN 

ART » K * 16: GOSUB 2940: GOTO 

1230 



ISO NEC 
190 [ 



• NB + 1 

12O0 T*(NB> - NOM* 
1210 GOSUB 2850 
1220 ART - NB * 16 
1230 PRINT WR*;ART 
1240 GOSUB 1990 
1250 PRINT D* 

1260 VTAB 23: HTAB 6: INPUT "1 
EZ RETURN POUR CONTINUER" 1 



1270 
1279 

12BO 



1320 
1330 
1340 

13SO 
1360 

1370 
1380 
1390 
14O0 



RETURN 

REM LI3TE DU FICI 

IF N8 - O THEN 14: 

FOR I - 1 TD NB 
PRINT RD»; I •■ 16 



GOSUB 2690 

VTAB 23: HTAB 6: INPUT "TAI 
EZ RETURN POUR CONTINU£R"!A 



1410 NEXT 

1420 HOME : VTAB lOi HTAB 10 

1430 INVERSE : PRINT " FIN DE FI 

CHIER ": NORMAL 
1440 VTAB 23: HTAB 6: INPUT "TAP 
EZ RETURN POUR CDNTINUER" I A* 



1430 



RETURN 

REM FIN DU PROGRAMME 



RIN 



CLt 



NEXT I 
PRINT CL* 

REM LECTURE NB 



3B0 DIM 



FOR I - O TO 16 

PRINT RD*I I 

INPUT N» 

FOR J - 1 TO 72 3TEP 12 



PRINT : PPlnr 
GOSUB 2020 
IF Nj ■ THEN 760 
PRINT "FIGHTER VIDE": INPUT 
"TAPEZ RETURN F-QUR CONT INUER 
"|A4l RETURN 
FOR I - I TO NB 
IF T«(I1 - NOM* THEN RnsuR 

f,'M I 

NEXT I 



. 1550 

1360 
1570 



I bOG 
1601 
1602 



NORMAL 

TEXT 

END 

REM MODIF/SUPPR 

POKE 34,20 

VTAB 21: HTA8 1: PRINT SPC ( 
SO) i VTAB 21: HTAB I 

PRINT "MODIFICATION D'ARTIC 
LG - - ■ ' I > " 

PRINT "SUPPRESSION D'ARTIC 
LE — > <2>" 

PRINT 

1NPU1 

VAL 



"VOTRE CHOIX "!A»:A - 
I Oft A > 2 THEN 1520 



ON A GOTO 16O0 
INVERSE : REM 
VTAB 9: HTAB 1 



1B40 

MODIF 
: PRINT ' 



VTAB 13: HTAB 12: PRINT *A- 
3" 
VTAB 17: HTAB 14: PRINT "6" 



Z-VOUS MODIFIER- 
PRINT : INPUT "VOTRE CHOIX 

11,2.3,4,3,6) "IA* 

ft - VAL (A*): IF A < 1 OR I 
> 6 THEN 1610 
HOME 
IF A < > 3 THEK J7!0 



.70 GOSUB 2160 

.80 GOSUB 2230 

.90 GOSUB 23O0 ' 

'OO GOTO 1730 

'10 ON A GOSUB 2020,2O9O,,243O, 

2360, 23O0 
'30 GOSUB 2690 
'40 HOME 
'60 PRINT "I-MODIFIER UNE AUTRE 

DONNEE DE L-ARTICLE"! 
'70 PRINT "2-ENREGISTRER LES MO 

DIFICATIONS" 
'80 PRINT "3-ABAND0f'lNER LES MOD 

IFICATIDNS" 
'90 INPUT "VOTRE CHOIX (1,2,3) 

'93 A - VAL <A*>: IF A < 1 OR A 

> 3 THEN 1740 
IOO ON A GOTO 160O, IBIO, 1B30 
109 : 

HO REM ENREGISTREMENT 
11 1 : 
115 P =■ INT ((I - I) / 6):T»tI) 

- NOM*: GOSUB 2870 
120 PRINT MR*IART: GOSUB 1990: PRINT 



v " i ■ 

7339 
2360 

rr6i 



2390 
2400 
2410 
2420 
2429 
2430 
2431 

2430 

2460 
24 70 



IF LEN 'A»i ] THEN Ot 

2650: GOf r 
GOSUB r790:NUMER0* - A* 
RETURN 

REM SAI5IE VILLE 

INPUT "VILLI: ;.-.» 
N - ISi IF LEN '.-•« 
2410 

GOSUC ^64" 

aoto 2370 

GOSUB 2790:VILLE« - A* 
RETURN 

REM SAISIE CODE POSTAL 

INPUT 
N - 5: 
2480 



tINT 



* THEN 
PAS PLUS DE CINQ CMI 



goto 2440 

gosub 2790:cdpst» ■ ( 

RETURN 



> INPUT -INDICATIF TELERHONIO 
UE "iA* 

> N - 2: IF LEN <A») < - N THEN 
2350 

I PRINT "PAS PLUS DE DEUX CHI 

FFRES SVP- 
i GOTO 2310 

I - 2: GOSUB 2790: INDTEL* - 



B40 REM SUPPRESSION 

B41 : 

B30 P - INT (II - 1) / 6) 

B60 T*(I) - * 

870 GOSUB 2B70 
880 PRINT WR*-.ART 

900 GOSUB 1990 
905 POKE 34,4 
910 PRINT D*: RETURN 

919 : 

920 REM LECTURE FICHAD 

921 : 

930 INPUT B* 

940 CODE* - MID* (B*. I, I ) : NOM* - 

MID* (B*,2, 12) :PRENDM» - MID* 



2339 
2360 
2561 
2570 
2360 



AS 



REM SAISIE NO TEL 

PRINT 

INPUT "NUMERO DE TELEPHONE 

I A* 



2390 N - 7: IF 



(A*) 



2620 
2630 
2639 
2640 



2620 

PRINT "PAS PLUS DE SEPT CHI 
FFRES 5VP- 

GOTO 2360 

GOSUB 2790: TEL* - A* 

RETURN 



IB*, 



.13) 



930 GENFtEVOIE* - MID* (8*. 29, 31 
:NVOIE» - MID* (B*,32,I3):N 
UMERO* - MID* (B»,47,3> 

960 VILLE* - HID* (8*. 30. 13) :CD 
PST* - MID* (B*,63,5> 

970 INDTEL* - MID* (B*,70,2>:TE 
L* - NID4 <B»,72,7) 

980 RETURN 

9B9 I 

990 REM ECRITURE FICHAD 

991 : 

OOO PRINT CODE*INOM*1PRENOM*IGE 
NREVO I E » i NVO I E* i NUMERO* t V I LL 
E*[CDP9T»j INDTEL*; TEL* 

OlO RETURN 



i PRINT : INVERSE 
) PRINT "PAS PLUS DE 
R AC TERES. 3VP" 



2689 
2690 
2691 
27O0 



RETURN 

REM AFFICHAGE DONNEES 



VTAB 

PRINT 
) VTAR 

> PRINT 
ENOM* 

) VTAB 

> PRINT 
UMERO* 
OIE* 



2020 
2021 
2O30 



203O 
2060 
2070 

2080 
2089 
2O90 
2091 



INPUT "NOM "IA* 
N - 12: IF LEN (A*) < 
2070 

GOSUB 2650 

GOTO 2030 

GOSUB 2790: NOM* - A* 

RETURN 

REM SAISIE PRENOM 



MID* 
2764 IF M 

" THEN 

2766 IF TEI 



00 INPUT "PRENOM " I A* 
2110 N - 13: IF LEN <A*I < - N THEN 
2140 
GOSUB 2650 
BOTO 2 IOO 

GOSUB 2790: PRENOM* - A* 
RETURN 

REM SAISIE VOIE 

INPUT "GENRE DE VOIE (RUE. AV 
,BLD...-) "IA* 

N - 3l IF LEN <A»> < - N THEN 
2210 

GOSUB 26S0 

GOTO 2170 

GOSUB 2790: GENRE VOIE* - A* 

RETURN 

REM SAISIE NOM DE I A RUE 



: HTAB 1 

-NOM"i TAB( 18)|NOM* 

1: HTAB 1 

-PRENOM"! TAB( IB) (PR 

3: HTAB I 

■ADRESSE"! TA8< 1BHN 

" "SGENREV01E*!- "»NV 

3: HTAB 1 

•VILLE"! TAB< 1BHCDP 
i VILLE* 

D* (TEL»,7, 1) - " "; THEN 
MID* <TE"L»,1,2> * "/" 
» (TEL*. 3, 2) * "/"' ♦ 
TEL*. 3, 2) 

D» (TEL*, 7, I) < > " 
TT* - MID* (TEL*. 1,3 
» MID* (TEL*,4,21 * 
MID* (IEL*,6,2) 
• - - " THEN TT 



2790 
2791 
2BOO 



7: HTAB 1 

PRINT " TELEPHONE "I 
;" ("; INDTEL*!") ~f 
RETURN 

REM C ADR AGE I) ON Mi 



2820 
2830 I 
2840 
2B30 
2860 I 
2B70 I 



2231 
2240 
2230 



2290 
2299 
2300 
2301 
2310 



INPUT "NOM DE LA VOIE " I A* 
N - 13: IF LEN (A»> < - N THEN 
2280 

GOSUB 2630 

GOTO 2240 

GOSUB 2790SNV0IE* - A* 

RETURN 



REM SAISIE DU 
INMJ1 



NEXT w 

PR INI MR* 
PRINT N* 

i-i rni.M 



:.■'.■." i 

2960 
2970 



NB - I> 

ra u . 



HEBDOGICIEL 27, rue du Gal-FOY 75008 PARIS 

VOUS POUVEZ VOUS ABONNER AU TARIF PREFERENTIEL OE 340 FRANCS POUR 52 NUMEROS AU LIEU DE 
52 x 8,00 = 416 FRANCS. ABONNEMENT POUR 6 MOIS : 180 FRANCS. 



NOM : 

PRENOM : 

ADRESSE: 

REGLEMENT JOINT : □ CHEQUE DCCP 



MATERIEL UTILISE : 
CONSOLE: . . . 
PERIPHERIQUES : 



PETIT TRAIN 




Le Far Wtest vous fait rfiver ? Vous atmeriez partir a la con- 
qu6te de I'ouest a bord d'un petit train a vapeur ? Eh bien. 
rien n'est impossible, surtout si vous possedez un SHARP 
PC-1500 Prenez done les commandes de vot re machine ; 



■fint chaque rechrirgement du pro gramme, faute de quoi vous risque - 

quete de I'ouest a bord d'un petit train a vapeur ? Eh bien, nR ' (favolr queiques surprises ! 

Vous avez bien (ail attention 6 tout cela ? Eh bien, vous pouvez jouer 
mamtenant ! 

Le principe du jeu est tres simple faire un maximum de kilometres aux 
je SUIS SGr que VOUS deviendrez bien Vite un des plus commaruiesdevotrepelittrainavapeuravecaudepartlOOkgdecriar- 

bon et 5000 S en poche Bien entendu. il faudra de temps en temps ali- 
menter la chaudiere de votre locomotive en appuyant sur la touche 
SPACE chaque tois que la machine vous demandera du charbon (Figu- 



grands pionniers de notre temps ! 



SHARP PC-1500 ou TANDY PC-2 
avec module 8Ko (CE-155). 

Avant tout, il vous taudra charger le programme {ce qui constitue deja 
uneprouesse!). Je vous conseille dele (aire soigneusement en respec- 
tant particulierement les espaces dans les PRINT (car ce sont eux qui 
sont ii la base des eftets graphiques) et surtout. lisez attentivement ies 
consignes ci dessous avant le chargement ; 

- Faire tout d"abord, en mode PRO, la sequence de touches ; NEW & 
38D5 Elle a pour but de reserver un espace memoire destine a la routi- 
ne d'mversion video en langage machine. Je precise que, vu la longueur 
du programme, vousdevez obligatoirement possederun module d'ex- 
tension memoire de 8 Ko (CE-155) Avec un autre module, le program- 
me nsquerait de ne pas toumer. 

- Rentrer ensuite le programme ligne par ligne en respectant particu- 
lierement la structure de la Iignet060: En effet, a latin du jeu, votre meil- 
leur score sera automatiquement programme dans le premier PRINT 
de cette ligne Une sous routine en Basic se charge de la recherche de 
I'adresse ou le score devra etre programme 

Si la Itgne 1060 est inexistante, la machine ne pourra programmer votre 
score et vous avertira par le message "ERREUR, pas de ligne 1060 !". Si, 
par contre, vous oubliez de mettre le signe - dans cette ligne, la machi- 
ne affichera "ERREUR contenu ligne 1060 !" Je vous signale entin 
qu'apres ce fameux = il doit y avoir exactement 5 espaces qu'il est pri- 
mordial de conserver si vous ne voulez pas que votre programme soit 
detruit 

- vous pouvez maintenant sauver votre programme sur cassette par 
un classique CSAVE. Par contre. n'oubliez jamais de (aire NEWS 38D5 



non une quantite de charbon comprise entre 1 et 100 kg vous pouvez 
etre certain que jusqu'a 50 kg, la machine accepters <T en prendre Mais 
au dela de 50 kg. elle est libre daccepter ou de refuser la quantrte de- 
mandee De toute facon. vous avez droit a 2 propositions avant de re- 
partir bredouille ! 
A noter encore ; 

- Sivousn'avezplusd'argent.lamachinecontinuedepasserp 1' 
lages. donne le cours du charbon mais ne s'arrete pas. 

- Achaque passage par un village, un test aleatoire determine I'afficha- 
re 2) Mais soyoz vigilant, si vous ne lui en donnez pas au bout de 6 de- ge d'un des indicateurs I, II. ou 111 correspondants aux 6 touches pre 



mandes. vous tombcrez en panne secho et le jeu s'arretera. 
Pour pouvoir acheter du charbon (car les reserves s'epuisent vite. a rai- 
son de 10 kg de charbon par pellete), la machine passe aleatoirernent 
par des villages (Figure 3) en faisant une PAUSE CAFE (Figure 4) ou un 
ARRET EAU (Figure 5) Elle vous propose alors un prix par kg de char- 
bon (notez la rapiditedel'inversion video en LM;cf Figure 6) et vous de- 
mande si vous voulez marchander (Figure 7). Cette partiedu program- 
me est interessante car elle vous donne droit a plusieurs options : 
-Si vous appuyez sur ENTER (rappele par 'ii> sur I'atlicheur entre paren- 
theses), la machine vous rappelle les donnees ; Prix propose, nb de kg 
de charbon. Argent restant. 



grammables de la machine ; le niveau t correspond a 15 km minimum 
apres chaque pelletee de charbon. le niveau II a 20 km et le niveau III a 
25 km Le hasard departage encore les concurrents ! 

- A partir de 40 kg de charbon. I'indicateur SMALL s'allume pour vous 
indiquer que votre reserve s'epuise. 

- Enfin pour vous encourager, vous avez droit a un BONUS de 600 S 
tous les milliers de km, 

Vous trouverez en (ouinant un peu dans les lignes de ce programme 
beaucoup de petites astuces, notammenl pour controler les indica- 
teurs de la machine. Vous pouvez vous amuser a les changer sous pro- 
gramme en pokant aux adresses 28750 et 28751 des valeurs comprises 



■ Si vous appuyez sur B, vous pourrez choisir entre BEEP ON ou BEEP entre Oet 255 (&00a &FF en hexa), Vousserez tres surpns paries effets 

OFF obtenus ! Je conseille aussi aux programmers avertisdejeter un coup 

- Si vous desirez interrompre mom entane merit le jeu en esperant le d'ceil sur I'autoprogrammeur de score (aux environs des lignes 1300 et 

continuer plus tard (ies parties sont souvent longues). il vous suffit 1950). Enfin. rien ne vous interdit de vous servir de ('inversion video en 

d'eteindre la machine, sans (aire BREAK en appuyant sur OFF ; lorsque langage machine. Pour cela vous pouvez. en programmation ecrireune 



vous la rallumerez, le jeu reprendra au meme endroit. 
- Enfin, vous indiquez a I'aide des touches O et N si vous voulez ou non 
marchander. 

Si vous decidez de marchander, la machine demande votre prix (le si- 
gne * vous rappelle que si vous pressez la touche ENTER sans rien re- 
pondreauparavant, vousaurezalorste rappel des donnees : Prix propo- 
se, kg de charbon, Argent restant). Si votre prix est accepte vous pou- 
vez remarchander ; sinon, vous repartez sans rien. 
N.B. : le nombre de marchandages n'est pas limitatit si le prix propose 
est accepte. 

Attention, si vous refusez un nouveau marchandage, vousserez oblige 
de prendre du charbon au dernier prix fixe car la sequence ENTER ou 
ENTER vous rappelle encore les donnees. Vous pouvez prendre si- 



ine du type ; 

3000 : WAIT : PRINT "expression" : CALL & 38C5 : WAIT : PRINT : END 
Votre expression apparaitra en video inversee. a condition, bien enten- 
du. que vous ayez fait marcher ne serait-ce qu'une fois le programme 
"Petit -Train", la routine LM etant chargee durant le jeu. 
Sinon, pas beaucoup d'adaptation possible sur un autre micro, vu que 
tes adresses RAM et ROM ne sont pas les memes. 
Bon voyage et amusez-vous bien ' 



is bien ' -^ ^^ 

pC 1500 











1887: IF K2-BLET A 


"THEN 1138 








8) 

Z=RN0 35:U1= 

99 




:BEEP I : GOTO 
1638 

IF <U>H)AND 


1755: IF (**•-]' 
BEEP ON I 
RETURN 


Ipet i t *B 


r n^vrtn 


J Tr 0. i n 1 


=0*688: 
CURSOR 5: 


1156:PRINT A«*" " 
115?:NEXT I 




; ! leur" 


1568 


164 4 








PAU5E " 80NU 


1 158: J=J»J: |F J<= 
13THEN 1155 


1385 


PRINT "BRAUO 


1565 


B=RND 35: IF 




<0>])8E£P 1, 


1760: IF AI=-8" 








S !":60SUB 1 




!U* battcz 1 




BJZTHEN 1565 




28, 588: BEEP 


BEEP OFF l 










985: CURSOR S 
:PRlNr " 


1160:UAIT 35: 
PRINT. : 




t Rtcord!': 

PRINT "Avec" 


1578 


IF A<=8PR1nT 

PLUS D'O 




1.2S, 188B: 

PRINT "C'ESt 


RETURN 








1765:G0T0 1758 


Km = CHARBON ! : 1 10K9 5 3679$! 


■:K]=39: 
DOSUB 1695 


CURSOR 13: 
PRINT K; r 




;K-SC;" Km d 




rgent: !■! 

GOTO 1665 




ENCORE TROP 
LOURO 1 " 


lB80:REn "Ten .n 
dicaleuri 1, 








1888:REn "r«*t d* 




1318 


SC=K:SC«= 


1575 


UAIT 8:PR1NI 


1645 


IF CU>H>AND 


11,111 . t sn 










Km ninunuB 


* K».":PRINT 

I163:AA=]Nr <K^18 
8B):AA=(AA*6 
B0*5888-A>/K 


1328 


STR« SC:L= 
LEN SC«:J=8 

FOR I=A0D*(5 
-DTO (ADD-*4 




- PRIX DU CH 
AR80N=":CALL 
H38C5: CURSOR 
18:PR1NT """ 




COMPRINT " 
TANT PIS, US 
N/AURE2 RIEN 
:":G0T0 1678 


ALL" 




»t<se«ii W4W 


„ ■ 1 


1815:P0KE 28758,7 


K IB'iKmlTf 1 


If .^TTTJI 


3:GOT0 1888 
1820:POKE 28758,4 








1098:V=y+l: IF Y<= 


1165: IF AAOBUAIT 




>IJ-J4>1JP0KE 




;2j" • 


1658 


IF U»2>A 


1:G0T0 1880 








niNTHEN 1885 


158: PRINT : 




I,ASC (MID* 








PRINT "Ui n^ 


182S:P0KC 28738, 7 








1B35:Z=RN0 59: IF 


WAIT 0:PRINT 




(SC*, J, 1>J: 


1577 

15B8 


UAIT 125: 

PRINT 

PRINT "CHARB 




~».":UrA^Z: 

PRINT -M\ po 


5: GOTO 1888 

1838:P0KE 28758, 

3: GOTO 1888 


I" PAUSE 


CAFE m 


' 1 


?>=477HEN IB 

90 


du «»!=•■; 
USING "it*.* 




NEXT I: 
RETURN 










1100:Z=RNO 5 


1588 


REH "S»-Pr 9 » 




ON RESTANT" - 






1835:P0KE 28758, 3 








1185: IF Z<=3THEN 
1085 


i";AAi '■».": 
USING 




PELLETEE de 




:Ci"Kt." 




"iRl-Kt.": 


3: GOTO 1880 












1385 


PRINT "ARGEN 




GOTO 1728 


1848:P0KE 28758, 1 


I im2) ARRET 


1 187:REM "De»ond« 
CHARBON" 


116?:G0SUB 1358 
II78:SC«="":F0R I 


1582 


C=C-10:IF C< 
BTHEN 1144 




T OISPONIBLE 
='jA;"»" 


1855 


C=C*U:A=A-(U 
t2):PRlNT "P 


7:GOT0 1888 
!850:niN^RNO 3:0N 








I1I8:WAIT 30:^CIR 


=ADDT0 <AD0* 


1583 


UAIT 28: 


1598 


UAIT 5:U»-"" 




R1X A PAYER= 


IIINGOro 1B55 








1 = 1 TO 8 


4):SC»=SC»* 




CURSOR 4: 




:PRINT "nARC 




";u»zi"»" 


. 186B, 1663 










1 1 15:CURS0R 5= 

PRINT 'XHARB 


CHR» PEEK I : 
NEXT l:WAIT 




PRINT "1PELL 
ETEE": IF C>= 




HON0OGE?(O^N 


1668 


IF UI=99L£T 
U*Z 


1033:llN=l5: IF C< 






, ^ '^ 1 


■40POKE 7 873 


■a;4K*nm: 


12 % \ 


ON'": BEEP 2, 


200 




IBBCURSOR 15 




8EEP 1,58: 


1663 


IF UOBPRINT 


8,?3:RETURN 








68, 188 


1175:SC=UAL (SC*> 




: PR INT STR4 




UAIT 8 




"US AUR1EZ P 


IB57:P0KE 28758,6 








1 128:A«="":A*3 


: PR INT "Oero 




C:G0T0 1528 


1395 


U«=INKEY« 1 




U L.-AU0IR A" 


3!RErURN 










INKEV« ; IF ft 
tm* THEN 15 


"ISC|" Km. ' 


1518 


IF C>=1B 
CURSOR 15: 




IF U»="" 
PRINT "MARCH 




:8;"*":a«="» 


1860:n!N»78: IF C< 








■4BP0KE 2875 


[HARCHAHDAGE 


00 

lI22:REn 'Te»t <t« 


MSB: IF JOSCBEEP 




PRINT " ■♦ 
SIR* C:GOT0 
1520 




(lNnriGE?<Q/N^ 
8/B'OFF)": 
GOTO 1595 


1665 


IF <A<=8)fiN0 
<n»o"8") 

PRINT "COURS 


8, 4l:RETURN 
I862:P0KE 29758, 3 
3: RETURN 








SEEP 1, 28, 18 
















88:G0SUB 138 


ISIS 


CURSOR 15: 


1536 


IF U*=CHR» 1 




OU CHARBON: 


1865:niN=25: IF C< 








I125:Z=RN0 58: IF 


8 








5CALL 58173 
IF U»=CHR< 6 




";b;"»." 
IF C<=8THEN 


-48P0KE 7873 
0, 25:RETURN 


<jaaj!flij 


m*—i*~ *"^ _ — ^ 


• 1 


2>=44THEN 15 


I1B5:G0SU8 1388: 




STR« C 


IS97 


I07B 






38 


CLS :UA)T 0: 


1S20 


CURSOR 4: 




6G0SUB 1745 




1144 


1867:P0KE 2B73B, 1 








1138:UOIT 0: 


1 = 155 




WAIT 8:PRINT 


1393 


IF U«=CHR» 1 


1673 


A»="":P1=8: 


': RETURN 








CURSOR 4: 


1 I90:BEEP 1, 4, 4: I 








3PAUSE " Pri 




UAIT 8:C-C-1 


1900IREK "Graphlt 








PRINT " 


*l-l:GCURSOR 




:IF C<=40 




— "jsir* ?,;'■ 




8: CURSOR B: 


M Panne au K 


1902: CLS :UAIT 8: 


18I3:La*<0>^"2038 


RRINI "Train 


■:K=K*1 


CGPRINT 0;7 




THEN <1880>n 




*IC=";STR» C 




PRINT 'K« = 


1 lo«etr Ique" 


CLEAR :Dln L 


3C3C7F7F3F7C 




:UAir 30: 


2; I06i3i;43; 




IN) 




i"Kt:A="; 






]9e3:PA»l8)-''B814 


0«<8)»48, ua« 


7C3C3F3F3F3F 


1848:WOir 2B:FOR 


CURSOR S: 


I84;PA»<0);0 


1323 


GOTO <l815«n 




STR» A; '■•": 




KtJ *" 


22414141":K« 


r.3)*34, UC*(8 


33337F7F3910 


I=; TO 4: 


PRINT USING 


1192:|F J<=0THEN 




IN) 




GOTO 1595 


1680 


IF O = 10B 


'STR# K 


)*38, A*<8)t2 


" : REn "Loco« 


CCURSW 2: 


■'■•»•••■■;■(: 


1288 


1530 


REM "Pat cat e 


1688 


IF tU»<>"0") 




CURSOR 131 


191B:F0R I = 1 TO 


0,TA»<8)»24, 




PRINT " 


USING 


1195:1=1-1: 




oa r un U I L L 




ANO (U»<>"N" 




PRINT STR* C 


LEN K«: It- 


H20»<8)*34 


i0!6:REri -Ch;rrr< 


":GCURS0R 1? 


1131:<1=K/100B:<2 


GCURSOR I: 




AGE" 




1THEN 1590 




:G0T0 1693 


mot <X», 1, I 


1903:DIrt CH*O>t0 




4:PRINT - 


«<Kl-INr K)) 


DPR1NT 81 8i 7 


1532 


CURSOR 4: 


1883 


UAIT 188 


1683 


IF C>=10 


>:PA»<B>-PA» 


,tt£na>t\a, n 






1132: IF K2=BLEt A 


4;127; Ii;8;p 




HA IT 180: 


1685 


IF U»="N" 




CURSOR 15: 


<B)*CH»(UAL 


A*(B)T2B, ga» 


10J7:tH»(.0) = "7F63 


1345:GCURSOR 2: 


=A*6BB: 


A*(0>;0:GOTO 




PRINT ■ U1LL 




'HEN 1625 




PRINT " "* 


[0)4*41*1 


<8)*38, PA*<9 


7F":CH»(1>=" 


PRINT "Pet II 


CURSOR 5: 


1 130 




AGE ! " : GOSUB 


1610 


U=B:U1=8: 




SIR* C:GOT0 


NEXT I 


)<sa 


414I7F':CH«C 


'=eCURSOR 12 


PAUSE " BONU 


1288:GCURS0R 1: 




1850 




INPUT ■■*U0TR 




1693 


1913:PAK8)>PAt<8 


IB84:R£rt "INUERST 


2>="7B6B6F-: 


4IPRINT Tm 


S !":GOSUB I 


GPR1NT 0;0;e 


1535 


IF Z=49BEEP 




E PRIX="iU 


1698 


CURSOR 15: 


)*'41417F4D3 


ON UIDEO Ian 


CH»(3)='636B 


In": NEXT I 


985: CURSOR 6 


1010 




7,20, 1000: 


161 ! 


At^lNKEY* 




PRINT ■' "• 


361714971497 




7F" 


1858: BEEP 1, 73, IB 


: PRINT " 


1218:PAUSE : PAUSE 




CURSOR 4: 


1812 


IF (U=8)AN0 




STR* C 


1414I7F": 




10I8:CH»<4)= -1F19 


8:8EEP 1, 180 


-:lCi=99: 


:BEEP 1,25, I 




PRINT " TUT- 




(A* CHM 13) 


1695 


IF A>.= 1000 


RETURN 


18B5:P0KE 138C5, I 


73-:CH»(5)=" 


, 188:BEEP 1, 


G0SU8 109S 


088:BEEP 1,2 




TUT! ":UAir 




UAIT B: PAUSE 




CURSOR 21: 


1950:REn "Recherc 


68, 178, SHE, E 


6F6B7B":CM«< 


57, 230: BEEP 


1135:A»="-;A*- 






0: CURSOR 1: 




" Prlx="; 




PRINT STR» A 


he adreite d 


38, tCC, 168, C 


6)="7F68?B": 


1,73,288 


1NKEY* : IF A 


I2I5:F0R 1=)55T0 




PRINT " 




SIR* 2)"*)C* 




:GOT0 1713 


u Record d« 


71, tea, HO, I 


CH»(7)^-4343 


1055:RANOOT1 :UOIT 


»-" "THEN 15 


57SIEP -II 




":G0W 




";STft» C;-<9 


I7B8 


IF A>=188 




85, IFF, (20, S 


7F" 


158:C=188:ft^ 


08 


GCURSOR I J 




1080 




!A="iSTR» Ai 




CURSOR 211 


1952: l=t3S03 
1933:A=PEEK Ii?36 


2E, S88, (06, & 


10I3:EH»(BJ=-7F6B 


5000 


1140:NEja l.-UOIT 


GPRINT LO»<0 


1540 


CLS :2 WHO / 




•".GOTO 161 




PRINT " "« 


m 


?F-;CH*'.^) = ■* 


1860:PRINT "Recor 


280 


);UC«<8);UA* 




: GOSUB 1900: 




1 




STR» A:G0I0 


•PEEK (I'D: 


1806:POKE 28758,0 


5F6B2F " 




1142= IF CO08EEP 


<i>*~ia , ;w 




UAlt 0: 


1613 


IF (U'B)AND 




1715 


II ft- 1060 


5iniN»J5 


I9?8:UC»(8P="18I0 


8 km.": 




<2>*"l0";un» 




GPRIN! PA«(B 




rAtOCHRt 13 


1703 


IF A>^1B 


THEN 1903 


1087:AR»="860F7F8 


3C3C7C7E3E3F 


PRINT ' EN 


BEEP 1, 100, . 1 


O>-»'00* 




>; ,, ee88 , ';ARi 




UHEN 1618 




CURSOR 21 : 


1957: IF A>1868 


F86":RE»<8)= 


3F3F7F7F3E3C 


UOITUREH !" 


80: BEEP 1,57 


12?0:8EEP 1, 48, 3: 




•"80"|AR*t"0 


1615 


IF U<BBEEP 1 




PRINT " "* 


1HIN UAIT : 


"1F7E1E1E7EI 


18":REn -r«n 


1062:PRINT " « FE 


, ?30:BEEP 1, 


BEEP 1,37,3: 




808';riA*<0)» 




.78,;)80:BEEP 




STR» A:G0T0 


PRINT "ERREU 


FB18186*:REn 


<J«r" 


RMETURE DES 


23,280:PRINT 


BEEP 1,48,3: 




■00- 1 




1, 28, 1808: 




1713 




"Arbre t ret 


l022:ro*C8)="2810 


PORtES t" 




N£XT 1: PAUSE 


1542 


GPRINT AR»;G 




iJAIT 130: 


1718 


CURSOR 21! 


ie IB6B!": 




5F7F7F7F7F7F 


I065:BEEP 1,58,60 


r>«ut??! ' 


: PAUSE 




A*ce;;0;B;Bi 




PRINT " PA"i 




PRINT 


END 




5F4A2ft04": 


00:UA1T 28:A 


I144JCLS :PRiNf " 


I 225: FOR 1 = 1 TO 4: 




0;RE»C8);LO* 




OUEStlON' ". 




STR* A 


19681 1--I«PECK <l* 


iMeinM(0)«"iwec 


REM "Pau»« C 


*(0)«-ich... 


PANNE SEC 


BEEP 1, 185, 8 




(8);uc»<0);u 




r.nro 1668 


1715 


IF K1--99 


2)*3:GOTO 19 


7E7F0F7F6F7F 




TCH. . . TCM.. 


ME!" 


B:BEEP 1,02, 




A*<0):UAI1 1 


1628 






RETURN 


33 


4F4F7F7E8C08 


J823:M2O»(0>-"3ri 


. TCH..." 


1 J45:8EEP 3, 200,2 


B8:BEEP 1,58 




80 




PRINT " OK 


1717 


IF C<=40T!IEN 


19031 1-1*2 


*-.REtl "Hai»o 


85F44445F40S 


I078:FOR I-1T0 28 
tBCEP 1, 18, 1 


5: BEEP I, 150 


,88: NEXT I 


154S 


IF Z=2BEEP 3 








'IBBB'MIN) 


t')7(): 1 1 -l: II 




259564 04 E*H 5 


, 288:BEEP I, 


1230:BEEP 1, 103, B 




,200, 75: BEEP 




":CALL (38C3 


1710 


GOTO (IBIS'M 


PI 1 K TOILET 


1009:S4M>(B) = "787C 


l4£403F":REn 


0:PRIHT 


1 1 3, 288 


0:BEEP 1,82, 




1, 150,780: 




:UAIT 1231 




IN) 


ftOn-l*?: 


6E6F6E7C787C 


"Arret E6u" 


LEFT* (A4(8> 


H46:B£EP 3, 200, 2 


88: BEEP 1,68 




BEEP 1, 115,2 




PRINT :GQT0 


1719 


REM "Reserve 


RE TURN 


7E4B4B4B7B7B 


!024:REn "PRESENT 


, I>JNEXT 1 




5:8£EP 1, 150 


■680: GCURSOR 




00IPRINT : 




1388 




orient epui 


1975: IF PEEK IOI 


4B4B4E7C787C 


or ION" 


SEEP 1,200 




, 700:BEEP 1, 


8: WAIT : 




CLS 


1625 


H=(RND 51>*4 






3THEN IT71I 


6E6F6E7C79-: 


1025:BEEP ON > 


SEEP I, 150 




1 15, 408 


GPRINT 


1340 


if z=?unir 8 




9:0-1 




1630)" 


l^8B;unil :PRINI 


REH "Sar«* 


PAUSE '■ tU 


BEEP 1, 100 




1147:BE£P 1, 150, 1 


I233IC1.S :UAIT 0: 




:PRINT " P 


1630 


UAIT 18B:U-0 


1778 


•it *-lAI '0* 


'ERREUR coot 


ieiB:UA*<0) = "H3F 


r rur 


BEEP 1,70, 10 


50:BEEP J, 15 


PRINT " Unt 




AUSE CAFE": 




: INPUT " tCOM 




PRINT "O'ac 


tnu U«n* IB 


3F79793F3F39 


rur-;9EEP 2, 


00 


8,50: BEEP 2, 






GCURSOR 98; 




BIEN OE KG U 




cord?<0/N)' 


6fl!":tND 


393F3F79793F 


[0, IB00:BEtP 


1075:UAIT 0:ELS : 


160, 58: BEEP 


?(0/N)" 




UAIT 138: 




0ULEZ-US?";U 


1723 


N«-1NKIY» 1 


1985IF0R 1*1 TO ?i 


3FU":REn "U 


1,18, 5088 


CURSOR 8: 


2, IBS, 50: 


124B:a*-"-':a»" 




GPRJNf TA»<0 


1631 


A*"!NKEY» 




IF N««""TH£N 


BEEP 1, 103,8 




1B30:CLS :F0R 1=1 


PRINT -Km »- 


SEEP 1, 280, 1 


INKEY* i IF A 




>:G0T0 1368 


1632 


IF (U°8)AN0 




1773 


0:BEEP 1,82, 


101 J:UA4U) = "1I3F 


5510 35STEP 


:CURS0R 14: 


80 


•-""THEN 124 


1338 


BEEP 1, 73, IB 




(AI CHR* 13) 


1738 


IF H*'"N" 


8816(11' l,0G 


3F7F7F3F3F21 


-liCCURSOR 1 


PRINT ": !00K 


1148:UAIT 150: 


8 




H: III II' 1, 100 




UAIT |t muse 




'HEN 1623 


.BB1NEXT- 1 


333S3D3F7F7F 


:CPR1NT L0«< 


)i5000«" 


PRINT "TERnl 


1245: IF A«-"0" 




, 100:BEEP 1, 




" Prin»"i 


1733 


ii m "ii- 1 1 i 


1998:BEEP 1, 183,8 


3F3fll":REf1 


0KUCi<8>;UA 


1877:REn "Port l| 


NUS, FIN OU U 


THEN 1008 




57, 230: BEEP 




STR» 2i "*)C- 




u ini mi q mi 


8:BEEP 1, 82, 




• (8>*-18";UF> 




OVAGE | " 


1230: IF A«""N" 




1,73,288 




"tSTR* Ci "K« 




/ Ill If,-.'. 


88:HI 1 '■ Ii 06 


iei2:WWK2) = "113F 


*(0)*-ib-;ua 




1I43:P0KE 28730,6 


THEN 1268 


1532 


PRINT 




IA«*|STm A) 


1740 


GOTO 1775 


. 688: RETURN 


3F7F7F3F3F3F 


♦(8)*"88- 


18B8:unl T 2:Y=8 


5:CLS 


12351 GOTO 1240 


1333 


CLS : CURSOR 




*:r,r)T0 163 


174 2 


REM "f.it BE 




2I3F3F3F7F7F 


I035:BEEP 1,48,3: 


1885:K=K*i:CURSOR 


II30:A«<8)'"Uotre 


1?Oe:Ufllf 28B: 




6:uni r 8: 








1 1' UN/Ill 1 ■ 




3f 3F 11": REH 


BEEP 1, 37,3: , 


5:PRINT 




PRINT ■■Domma 




PRINT "ARRET 


1633 


IF <U-0)AND 


1743 


phihi ■ HI n- 




'Uoion I" 


BEEP 1,48,3: 


USIN6 '■•«•■ 


WAIT J: J-l 


9<!.Au rtvolr 




EAU- 1 




(AtOCHR* 13 




■■ ((HI ll-IJH 




1B]3:UA4<3)-"113F 


NEXT II 


•";K:US!NG 


!I55:FOR J-25T0 < 


'"jRnINT : 




GCURSOR R: 




WHEN 1630 






STATU* l 


3F7F7F213D38 


CCURSOR 2: 


\VW,:Y] VWUff-V/ 


J-IJSTEP -11 


CALL ICI17I 




GPRINT H70«( 


1640 


IF (UMOANI) 


1758 


A«a"'l4*a 


7S98 


372F213F7F7F 


fRINI 'P*> ;i 


-<K1-INT Kl) 


CURSOR l:ri* 


1 IHIIiMM "l'rn,r«» 




8): GCURSOR I 




(D-DPR1NT " 




inki.y» i if n 




3F3Fll":REn 


-:GCURS0R 12 


:8En "T«»t d 


mid# (A*(0>, 






051UAIT 138: 




C/EST IROP L 




i ■" rm n i ,-. 




*Ua*an H" 


i; UAH 188: 


* BONUS" 




J, 1): IF 0*b" 


oliqu« d* vo 




rj*R!NT H20»< 




OU«0'":0-r>l 











DEMANDEZ LE PROGRAMME 

Achetez vos logiciels les yeux fermes, nous les avons testes pour vous I 

Nous avons selecttonne pour vous les mellleurs logiciels actuetlemcni dlsponlbles en France. Nous ne 
ptetendons pas que cette Mate est complete el definitive et II eat evident que nous y rafouterons regu- 
llerement des programmes au fur et a mesure que nous les testerona. Pourtant, vous chercherez en 
vein certains programmes qui loulssent d'une bonne reputation et qui se vendent surtout grace a la 
publlclte et aux conselts des vendeurs qui ne peuvent pas connaitre toua lea logiciels dlsponlbles. 
Nous avons classe a pert les logiciels educates et, par soucl d'honnatete, nos propres prodults : les 
Hebdoglclel Software. 

Leaprlxsont, nous Vesperons, les mellleurs dumarche surtout pour les abonnes-onclensetnouveaux 
- qui benetlclent en plus d'une remise de 10 %. St vous etes nombreux a nous aulvre dans cette expe- 
rience nous pourrons rapldement arrlver a tolre balsser les tarlfs des toumlsseurs pour attelndre 
I'oblectlt que nous nous aommea tlx6 : ramenur les prlx a une plus juste valeur I 



*%, 





SOFT-PARADE 



10 do lii dOporiMi N'u 
ipoft quolil0(p'u B8l ni 
is cello pago I 














r , * 








.^k*. ESS- 
«o,.™, EBB 

~ > ■ ■■ ■■ 








COMMODORE <-■ 





. . . - ■ 






TI-99 4/A N' 1 







TI-99 4/A H-2 



*&%"*' 



TOT N*1 



LUVWIIMI 













OfflC M-2 










•O^ ty " T 





WZ£^ 





LOQKXIS 




■■ ■ 


.-. 




















HH fl. PCI *" 


srr. 


■* li.ov 


■s^w^iZhT 


_ . 


UONT1NT a 




£«« 








*-"°- 



^^/a page pedagogique 

m . LA C. A. O. , c& peut servir ! En tous cas, a deifaut de vous fournir la 



A VOS MARQUES 


DiDi. specialists en la ma!iere 
Renseignements el inscrip- 
tions OPTIMA CONSE1L. Tel. . 
(7) 834 .60.06. ou au journal 

Dales : 

6 Juin GRENOBLE 

13 Jui n LYON 

20 Juin CLERMONT-FERRAND. 


CAIENDRIER DES JOURNEES 
GRATUirES TEXAS 
Organises par TEXAS INSTRU- 
MENTSei D O.M . avec le con- 
cours dHEBDOGICIEL. jour- 
n6es gfaluites concernant I'uti- 
hsation des calculatnces pro- 
grammables ou non. en milieu 
scolaire el anim6.es par Roger 




STOP! 

Nous avonsepuise noire stock de 
"50 programmes pour I'enseigne- 
ment et la famille" qu'HEBDOGI- 
CIEL vous proposait a titre gra- 
cieux (N Q 32). II reste neanmoins 
disponible, moyennant 50 F. + 
12 Fde port chez I'Editeur. Ecrirea 
Claude PICARD. Batiment des 
inslituIeurs.KELLERMANN 88100 
SAINT DIE. 



<*T£*. 



RESTONS SIMPLES ! 
Cetie page educative etant 
reservee aux enseignants. 
I'equipe de Redaction ne 
porlera aucun jugement de 
valeur quant a la qualile 
pedagogique des program- 
mes ou articles publies. Les 
critiques emanant d'ensei- 
gnants seront toujours les 
bienvenues : elles seront 
publiees et Iransmises aux 
auteurs concernes. 

P. GLAJEAN 




EN TOURNANT LES PA- 
GES... 

Jetez un ceil sur 1SOP1CTOR sur 
T07 {dessin assiste) ou bien Defi- 
MATH surSPECTRUM (Calculs en 
chafne) ou encore sur SAM., sur 
ZX81 (animation de graphismes). 



C.A.O. 

Veuillez trouver ci-joint un pro- 
gramme pour T07 (avec memoire 
sup). J'enseigne I'Education Ma- 
nuelle el Technique" dans un col- 
lege. J'ai essaye de montrer ce 
que pouvait etre la CAO dans un 
exemple sadressant aux enfants 
de ii al3ans. 

Attention, pour utiliser au mieux 
!es 25 lignes ecnre sans effacer le 
dessin. j'utilrse POKE 24 636,32 
{mieux que console 1.2). Apres 
utilisation de ce programme, si 
vous ne voulez pas avoir de pro- 
bleme de listing, (attes POKE 
24636.0 (ou eleignez I'ordina- 
teur). 

Voila je vous souhaite bon coura- 
ge, je me souhaite bonne chance! 
Maunce AUJAS 
PS. : il est important de regler la 
luminosite et le contraste du mo- 
niteur a un niveau assez eleve. 
sinon le crayon optique peut pro- 
voquer des ordres errones. 
Bien entendu, ce programme est 
'tout public" il peut interesser 
touslesjeunes.il n'a riendefasti- 
dteux. de typiquement scolaire. 

TO"? 

11 riV« fl ^;f XPOkZ 24691,43 

29 DIM K<2S,4>,A<4e>.B(2*l ,- . >- 

;™' :t,-.x: ?-~\. , . 

!I3 READ I, J 



263 **«SU«»rMJtCHE DU P80CRflHMF«»M« 

Si.K-Sc*"* Q a » s " 

234 A iTRB9,0: LOCATE 0, £4 -.PPIhTk - 
Charlies 1984/21300 oc tctf 

28' CONSOLE 8,2!:hTTRB 1.WF0R u*B TO 2 
; FOR . = 9 TO 20ILOCATE 2,3 :PRIMT"L'CUT 
0" iHEZT Z-- FOR X>a TO 489 :NEXT if 
266 IF U<2 THEN CL3 
£98 NEXT U 

289 BOX'256, :99.-'399, 159 M 
210 BOXr<260.116;-'=?8,l40,.-3:PEN 9; '2$ 
0. 1 1 0>-<298, 148 >: LOCATE 16. 8: ATTPB9, 9: PR 
INT'omand -/ous avcz tout ;.j. ":L0CATEI3, 1 
:PPINT-faites wmcv le pro-* i LOCATE 13 
,2:PPINT--qr*»»e en pointant 1«" ."LOCATE 
21,3=PRINT-cra^on sur It fjrrf 

212 COSUB SeesCONSOLE Br24i3CR£EN/9 r 0iCL 

S 

225 COSUB 239:G0Sue ?66 

226 ONPEN COSUB 1969.239.3860.1560,1908, 
959,948,3808 

227 ONPEN G0SU8 1 859, 289, 3898. I 5*8, 1 -366 . 
950,948,5198 

223 GOTO 227 

275 END 

289 GOSUB 388:G0SUB 378' GOSUB 335:EFr«*0 

: RETURN 

388 '•t»»DESSINM«»-«..»*«.VUE DE FftCC. 

381 CONSOLE 8,4:PQKE 24636. 32: GOSUB 78*1 

POKE 24636,0 

303 CONSOLE 5.24 :SCPEEN 7,0,8 ICLS'U-I 

384 ON ERROR GOTO 308 :aTTRB 0,0 

383 FOR X.0 TO 12 

310 LINE'T.'X, 1 >.t" /,2 ■ )-<Y'V.*\ . i ■■■> -1. 

2>),2 

328 IF X<3 THEN PSET'K' X, I )/8-l ,K(X,2)X 

8-.6>CHR*(X<X,9)>,7 EL3E P8ET(K(X/ JJ/8-1 

,K(X,2)/8-1.6>CHRf 'K<X,8)),7 

338 NEXT X 

335 LINE(K(13, l'j,K'l3,2''>-'K<0,i ',K<9,2> 

>/2 

348 PSET(K(13,l J''8-l,K(I3,2)/8-I>CHP*'K< 

13,B)>,7 

338 FOR X-12 TO 13 

333 FOP U-3.14 TO 6.28 STEP 8.3 

333 PSET<K<X,l)*KUa,2>»l.l»C0S(U),K'X,2 

)*K<18,2>«Sm<H)i,2 

338 NEXT U : NEXT X 

368 T-<K<19,2>-4)'10 

362 FOR U-8.6 TO T STEP 8.94 

364 PSET'.K(13,1>-K121, 1 ) »C0S< U > , K<2 1 , 2 >- 

K(21,1)«SIH(U)>,2 

366 NEXT U 

368 RETURN 

3A8 ' DETAILS 



378 T«KU9,l>'ie =IF T> = 3 HND CAMJ=1 THEN 

GOTO 375 
371 FOR H=3 TO T STEP -9.84 

373 PSET <K<12, 1 )*K< 18, 1 V*l . 1»C0S<H),K<1 
2.2>-K<13,l)»SINf.U>),2-.NEXT U 

374 IF SP0RT=8 THEN LIHE-fK<25, 1 >, K<25,2 

375 IF SP0RT=1 THEN LINE (K<22, 1 >,K(22, 2> 
>-CKC25,I>,K<25,2>>,2 

376 LINE tK(25, 1), K< 25, 2 J >-f K( 6, 1 )-4<U, tC 
(6,2J*4*U),2 

377 LINE-<K(5, 1 )*4*U,K<5,2)*4«U> r 2 

378 LINE -(KC4,1)+4#U,K(4,2)*4*U>,2 

379 LINE -<KC4,1),K(4,2)+4*U),2 
389 LINE -<K<4, 1 >,K<22,2>>,2 
381 LINE-CK(22,1>,K(22,2>>,2 

332 IF SP0RT=9 THEN L I «Ef.K(23, 1 >, K(23, 2) 

)-(K<23,l),K(22,2)),2 

383 LINE <K(4,1>*4»U,K<4,2>*4»UJ-CK(25,1 

>,K<25,2)>,2 

334 RETURN :'... DETAILS VUE CfiUCH 



3S5 FOP X=12 TO 13 

336 H=0 rPSET <KCX, I >*K( 18,2)*1 . 1 *C0SfH 

).K<X,2>*K(18r£>*SIN<H)>,2 

387 FOR U=8 TO 3.14 STEP 8.85 :LINE-<K<X 

,!>*»!< 18, 2>«1. 1 «C0S<U>,K<X,2>*k:( 18,2>*S 

IH(U>},2 

333 NEXT U iNEXT X 

393 PSET(K'.22,lJ/8-l,K<22,2>/a-l>-U-,7 

396 PSET<K'23, l>/8, <K(5,2)t5i''8)-X-,7 

397 PSET<K-:25, 1>^8,K(25,2>^8)'Z",7 

488 LINE <K(I4,l),»r<e,2>>-(K(15,l>,K<6,2 
>>,2 

485 LINE-(K<I5,1>,K<4,2)>,2 

489 0B-K<15,I>-<K<I6,1>-KU4,1>) 
418 LINE -r08,K(5,2>),2 

412 LINE -Ciai6,I),K<5,2>>,2 
415 LINE -Oai4,I>,K<4,2>>,2 
426 LINE -<K(14, 1 i,K<8,2>>,2 

422 LINE fK<15,ll,K(4,2>)-(0B,K<6,2>),2 

423 IF K<6,2Xt;(3,2>THEH LINE -<K<I6,I>, 
K<6,2>>,2 

424 LINE <K(16,1),K(6,2>)-<K(14,1),K<4,2 
>7,2 

425 LINE -<K<I4,i>,K<8,2>>,2 

426 PSET(K<14,1J^8,K<!4,2>''8)'0*,7 

427 PSET<(Kf 15,1>*4>/8,K(14,2)^3)-P',7 
430 LINE <-Kfl4, I >, K<8, 2> )-(K( 15, 1>,K<0,2 
J), 2 

434 P=K<15,1>-<K<17,1>-K<14,1>) 

435 LINE -<R,K(3,2>>,2 

448 LINE -(K<17,1),K(3,2>>,2 

445 LINE -<K<14,1).K(I,2)},2 

458 LINE <Kri5, l>,K(4,2)>-(.R,K<3,2i>,2 

455 LINE -'Kfl4,l>,K<4,2)>-(K(I7,I>,K(3,2 

>>.2 

460 B0Xf.»:<;i/,l>t3,K<3,2)»3)-<k<17, 1)*X< 

20,1>,X(3,2J»K(20,2>?,3 

465 BOXF (R-tf(28,l),K(3,2)*3)-(R-3,KC3,2 

)+K(29,2)J,3 

470 FOR U=15 TO 19 STEP 2 

472 LINE (K<24,l>#K£3r2>+l»-<K<13 f l>-<K< 

24,1>-X*14, 1)>,K(3,2)*M),2 

475 NEXT II 

480 LINE 'K<16,I)*3,KC5,2)*3)-(0B-3,K<5, 

2>*3),2 

485 LINE -'K(15,1J-3,K<4,2>-1>,2 

498 LINE -'KM4,1>.3,K(4,2)-1),2 

490 LINE -<Y< 16. 1 >*3,K(5,2>*3>,2 

491 LINE 'K(14,I>,K<l,2>)-<K(15,l),K<l / 2 
>>,2 

492 BOX <K< 14,l),K(8,2)J-CK(14,I>*ll,K(I 
2,2>*K(I8,2>),2 

453 BOX ^K<15,1)-1I,K(8,2>)-<KC1S,1),K(1 

2, 2>*K<18.2J>,2:LINE<KM4. 1 >•! 1 ,K'12,2) > 

-<K'15,1)-1I,K'12,2)),2 

4?4 PSET<Kf I6,I)'8 ,Kt5,2)/8-l)-0-,7 

495 PSET (K 117, I >'8,K<3,2V8>*R',7 

496 LOCftTE 8,5 :PP1NTS ra 3 on portier* e 
t P roues U ph»res. T arcsfport<38,ai 1 
e>. V calandreV ra 3 on et centre 
aile .' 

^99 RETURN I' 

590 IF ERP = 5 THEN:CL3:PRINT'S0RT DU C 

6DRE ! IL EST PPEFERfiBLE DE PELANCEP 

LE PPOGPftMME- 

518 IF EPP-53 OP EPP'59 THEN CLOSE ."PESUM 

E 

528 ICLS1BTTPB1,9:C0L0P I . 8: PRI NT 'EPPEUR 

:RELANCER LE PPOGPAHnE- 

538 END 

688 'ftVERTlSSEHENT •«•••••••■•*••««•■ 

605 ATTPB 8,8 

686 C0NS0LE5,9,,2:SCPEEH 3:CLS 

687 POKE 24636, 32:ATTPB l.ULOCftTE 8,7 : 
PRINT-L'AUTOf * 

683 ATTR8 9,8:L0COTE 14,6 ;PRlNT-flE6LISft 
TION D'UN SOLIDE * 

689 LOCATE I4,7:PRINT-»* PORTIP DU DEVELO 
PPEMENT- 

618 OHPEN GOTO 6I1=GOTO 618 
611 CLS:C0N50LE5, ll:PPINT" L'ORDlNfl 
TEUP PERMET DE MODlFIEPll VOLOWTE LE P 
LfiN DE HfiOUETTE PROPOSE I chaeun P 
cut CREER 1c BOdcl* de sonCHOIX en f*is* 
nt de la C .A .0 ,c' es t-»dire:Conc«pt io 
n Assistee par Ordinateur." 



donnant un dev* 1 opponent 
avec des ridelle* ,ou* 
614 PRINT-VOITURE SPORT : 






615 ONPEN GOTO 617=G0T0 615 

617 CLS:CONS0LE5, 18, , 2= CLS: LOCATE 9,5:PR 

INT'le s»»bole represents la bar 

re d'espaceaent.* 

618 PRINT-la S3»bole -<= represente 
la fleche retour. - 

619 PRINT-ehoisissez une pha: 
■•e en pointant le crjjon 
628 ONPEN GOTO 659:G0TQ 628 
658 RETURN 

788 '«»»»l»«*TITRE,flODE D'EMPLOI *■••••• 
718 CONSOLE 0, 4, 0: SCREEN8, 1 : POKE 24636,3 
2 

715 B0XF(2,2)-<15,15>,3:PEN 0;C2,2>-<15, 
15> 

716 B0XFC64,2)-<73,15>,3:PEN l;(64,2>-(7 
8, 15> 

717 B0XFC152,2>-(167,I5>,3:PEN 2;<152.2> 
-<167,15> 

713 B0XF<232,2>-(247,15J,3:PEN 3;<232,2) 

-(247,15) 

728 LOCATE 2, 3: PR INT "nODIF . - : LOCATE 18,8 

:PRINT*NOUV.VUES-:LOCATE21,0: PRINT "PERSP 

ECT-:L0CATE31,8:PP1NTDEVEL0PP.- 

722 LOCATE 2.1:C0L0R 4:PRINT'<< - : LOC 

ATE 10,l:PRINT*<<— * : L0CATE21 , 1 : PRI 

NT*<<< -: LOCATE 31, l:PRINT*<< ■ 

738 COLOR 8:LOCATE8.2:PRINTT10DIFICATION 
S:choisir 1 point au c 1 auierchanger ses 
coordonnees par * , -> ou<- chancer de p 

oint par-<= .FIN de »odi f ■ 

731 POKE 24636, 8:RETURN 
900 'nODIFS:C.A.0.TYPEt»i«»»i4«»»«i« 
985 LOCATE 8,8:COL0R 4: ATTRB8,8:PRINT*vo 
ulei-uous faire une BERLINE 4 PT.>-:L0CA 
TE 8,9:PRINT-ou un COUPE 2 PORTES<SP0RT> 

>>-:L0CATE8, 10:PRINT'ou un CAPIIONta 

Plateau) — ->>-:L0CATE 8, 1 UPRIHT'ou ut 
iliser le f ichier-) > * : PLAVFADO' 

910 BOXF<380,64'--O28,71),3:PEN 4;(388,6 
4)-(328,71> 

911 BOXF(278,72>-'.295,79),3:PEN 5;<270,7 
2>-<295.79> 

912 B0XF(248,89>-<265,37),3:PEN 6;(248,8 
0>-<265,87> 

914 B0XFC218,88)-'235.95',3:PEN 7;<2I8,8 

8>-<:235,93) 

938 RETURN 

948 CAP1=1 

958 SP0RT=l:K(19,l)=38:FOR X^22 TO 23=K( 

X, 1)-K(6,1)-3:NEXT Y,i K<25, 1 >=K(6, 1 )-3 

1888 'nODIFS:DE3SIN»**»*»M»M»«» 

1884 CONSOLE 8,ll:CLS:L0CATE 8,8 : SCREEN 

5,8: PRINT'MODIFICATIONS" :PLAVFAD0" 

1805 At=INKEYf 

1886 IF Af=" THEN 1005 

1088 Z-ASC<AS>-65 

1812 IF Z>«8 AND Z<27 THEN 1015 ELSE 188 

5 

1815 B» =INKEY* 

1828 IF B* = CHP.t<8? THEN K<Z, 1 )«K<Z, 1 ) -1 : 
IF K<Z,1><3 THEN K<Z,1)=5 

1822 IF 8« = CHRI(9) THEN K (Z, 1 )-=K<Z, 1 ) *1 
1024 IF 8*=-CHR*'18) THEN K<Z, 2) = K<Z, 2)*1 
1826 IF B*=CHRIUI) THEN K(Z, 2)=KCZ, 2)-I 
:IF K<Z, 2X180 THEN IF Z< 13 OR Z>21 THEN 

K(Z,2>«188 
1028 POKE 24636, 32:L0CATE 0,9:ATTRB 1,1 
1PRIHT CHRI'KIZ,0> ) : GPK0 >K<Z, 1 >;GR*<1)K 
(Z,2>;* ":P0KE 24636, 8:ATTRB 8,8 

1829 IF 8eCHR*<^30> THEN 1885 ELSE 1838 
1838 IF B*=CHR*f32< THEN RETURN ELSE 101 
3 

1848 END 

1568 '•(••(•■(••DEVELOPPEMENTI********!* 
1585 SCREEN, 8 ■ CONSOLE 0,12: M=68 : U=0 
.S :F=8.83:PP--8.7 

1510 CLS JPOKE 24636, 32: ATTR8 l,8 :F0R 1 
• 13 TO 14 ILOCATE 9, IJPPINT" 

■:N£XT I 

1511 FOR 1=15 TO 24:L0CATE 0,!:PRINT- 

•:NEXT I: POKE 24636,8 

1512 IF EFFA-J THEN BOXF ' 228, 1 80 >-<250, 1 
38), -1 



1544 LOCATES, 17: C0L0R1 : PRINT * les roues' 



■ 52) 



fOi 



1521 pp=p-b. i , 

1524 8OK(160,0)-<328,44),l:BOX(160,56)-( 
328,74), 1 

1525 LOCATE 22,1 :PPINT--<> deueloppeaen 
fiLOCATE 22,2iPRINT 'a «rande eehelle'i 
LOCATE 22,3iPRINT'en 2 par ties': LOCATE 2 
2,3:L0CATE 22,8: PRINT ■ RETOUP* 

1538 A«-INKEYi 

1535 IF Af-CHRf(38)THEN 1539 

1536 IF AJ-CHRK32) THEN 1537 ELSE 1538 

1537 COSUB 788:RETURN 

1539 CONSOLE 0,24,9,0 :CLS ISCREEN2) Z*8 
: U-98 !U-li F-8.805 

1548 LOCATE 0,8fCOLOR4:pRINI-SI CE MODEL 
E VOUS CONVIENT.VOUS POUVEZ EN C0NSTRU1 
RE LA MAOUETTE EN TRACANT SONDEVELOPPEHE 
NT SUR PAPIER HILL 1 flE TRE, PU 1SEN REPORTAN 
T CELUI-CI SUR CARTON FORT.' 

1541 LOCATE 8, 51 COLOR 1 1 PRI NT'ATTENT ION: R 
EPEPACE A PAPTIP SOnflET HAUI-GAUCHE" 

1542 LOCATE 0,8:COLOP 4:PRlNT'pour une ■ 
eilleure lisibilite a I'ecran.le develop 
peaent est present? en 2 parts :bicn tnt 
endu, ] I doit etre reprodult inun seul CA 
BAR1T sur le Papier BilllBctre" 

1343 LOCATE0.13: PRINT-pREVOVEZ UNE PATT 
E DE COLLAGE ENTPE F ETC. AILLEURS, COLLEZ 
BORD A BORD.AVEC UNE COLLE OUI NE COUL 
E PAS- 



s P et coTlees'iLOCATE 0,22: ATTR81, I :PRINT 

■BON COURAGE I" 

1545 B0XF<278. 1 761- ' 386, 289), -0: PEN 8; <2 

78, l70)-<300, 298 ).: ATTRB8, 8: LOCATE 27,22: 

PRINT*SUITE- 

1547 ONPEN GOTO 1548:C0T0 1547 

1548 ON ERROR GOTO 1918 

1558 CLS : GOSUB 2000 : GOSUB 1708 

1555 At=INKEYf : IF AI=CHRf < 32)THEN 1559 
ELSE 1555 

1559 CLS:COLOR4,0:LOCATE *, I 8: STTRB6.8: P 
PINT-POUR DES RAISONS DE PRECISION, LE D 
ESSINDU TOIT ET DU CAPOT PEUt PARFOIS ET 
RE LONG: PATIENCE , PATIENCE'" 

•:FOR X-8 TO 3208:NEXT X 
1568 CLS : A<22) =29 : GOSUB 2188 : GOSUB 

1570 AI=INKEY* : IF A!=CHR»<32) THEN GOS 

UB 780:GOTO 227 ELSE 1578 

1588 END 

1780 ' AFFICHBGE DES COTES •••••• 

1784 LOCATE 26, 1 : ATTRB0, 1 : PRINT ■-<■ cot 

1785 Z=8 :COLOR5,0 

1715 A*=INKEYJ :]F At=CHRI(30) THEN 1750 
ELSE 1715 

1758 IF 2=14 THEN Z=18:C0L0R 3:L0CATE 5, 
1 :PRINTDONNEES ANNEXES* 

1751 LOCATE 24,1 :ATTR8 8,1 

1752 LOCATE 24,1 :ATTR8 8,1 

1755 PRINT CHR*<65»Z);GR»<8>;INT{K(2^1)> 
jGR»(l>f INTCK<Z,2));* 

1757 IF Z=3 THEN CORR= INT ( 2«K ( 3, 1 )-X<4, I 
>*<K<4,1)-K<3, 1))*SIN<PR)):L0CATE 26, 1 tc 
0L0R1:PRINT CORP: ATTRB0, 0: LOCATE 35.0--PR 
INT'corr.': LOCATE 35, I : PR INT "obi iV : COLO 
R 5 

1759 IF Z=23 THEN Z=8 :COLOR 1 :LOCdTE 5 
,1 :PRINT- -:GOTO 1778 
1768 Z-Z*l =GOTO 1715 

1770 A*=INKEY*:IF Af^CHR*<30) THEN 1773 
ELSE 1770 

1773 IF Z)7 THEN LOCATE 8,l:C0L0R 4:PRIN 
T-passag* de roue: lexeapl e - :: GOTO 1775 

1774 L0CATE23,! :PRINT*ET*; 

1775 PPiNTCfitte>; int<b(Z));gr*<i);int(C( 
2)))- • 

1777 IF Z-9 THEN B0XFC8, 8 >-< 128,20), -5:L 

OCATE 8,l:C0LOP,7, 4: ATTRB8, 1 : PRINT" SU. 

ITE - :RETURN 

1788 Z«Z*1 :GOTO 1778 

1798 RETURN 

1882 LOCATE 26.1 - ATTRB8, ! : PR INT* -<* co 
t«l" 

1883 A«=!NKEY* HF A*eCHR»<38) THEN 1809 
ELSE 1803 

1809 O = A(2n*2.A<28>*90-K(2,2) 

1818 LOCATE 26,1=C0L0P 5:ATTRB 0,l:PRINT 

CHRt(K<Z,8));GRt<e>;lNT<K<Z, 1 ) *58 ); GR*< 1 

);INT<0);* * 

1815 IF Z=3 THEN L0CATE28, 1 i COLOR 1:PR1N 

T CORRJCOLOP 5 

1828 IF Z-13 THEN Z=18 :G0TO 1849 

1825 Z*Z*1 :GOTO 1883 

1349 At-INKEY* :IF AI=CHR* t 38> THEN 1858 

ELSE 1849 

1850 LOCATE 26,HC0L0P 4JATTPB 8,1 : PRI 

NT-ET-;CRI(0>) INT(B<Z>';GR»'l); INT(C<2) 

*A(21)*A<28>-28);* * 

1835 IF 2=23 THEN :BQXFt 18, 18)-(23,25),2 

I GOTO 1864 
1868 Z=Z*1 =C0TO 1849 
1364 IF U=l THEN 1863 ELSE 1869 
1965 ATTRB 8,8: LOCATE 0,23 :COL0R liPRI 

NT* retour VUESlensuite eventuel FICHI 

EP- 

1866 B0xr<268, 168)-<300, ]90),7:PEN 7;. 26 
e,I68>-(380.!8B> 

1867 RETURN 

1369 ATTR8 0,0JLOCATE 8,23 :COL0P UPPIN 
T* 2EME PARTIE DU DEVELOPPEHENT ET-<- 

1978 RETURN 

1918 IF ERR-5 THEN PRINT *S8RI DU PEPER 

AGEML EST PREFERABLE DE RELANCER LE P 

KOGPAHnE*:END 

2888 ' S/P TRACACE 

2803 FOR Z -8 TO 25 

2084 K(2,3>-K<Z,1) 

2005 K<Z,1)-(K(Z,1)»58)»U 

2088 K<2,4)-K(2,2) 

2018 K(Z,2)-(K(Z,2)-M)«U 

2811 NEXT Z 

2012 K(18,1)=K(18,3)«U :K<2l,l)-K<21,3)» 
UiK<19, 1)-K(19,3) 

2013 K(18,2>-K(18,4)*U :K< 19,2)-K< 18, 4)» 
U 

2015 COSUB 304 iGOSUB 370 

2817 AC2e)-K(I5,I>-K(I4,l):A(21)-K(12.2). 

!A(22)-A(28)*AC21) 
2828 ■■.■' ■'']:.."'■' ']■.'..■ ■ : A<24)-K<18 
, 1)-K(9, 1) 

2822 Tl-K<8,2)-K(13,2): T2=K( 13, 1 )-K(8. 1 
) iA(39)-K(13,l)-S0Par2*T2-2) i TI-K<8 
,2)'K(12,2)tT2-K(ll,l)-K<12,I)i A<40)-SO 
R<T1"2*T2-2)»K(12,1) 

2824 B<8)-A<39)-<A(21)-K(l,2))iC(8)-A(21 
> : B<1)» B<8)iC<l)-A<22): BC2)-B(8)-(K 
<2,1)-K(l, 1))' C<2)-C<8) t 8(3) -B<2) «C 
(3)-A(22) 
2826 B(4)-A(48)*A<23):C(4)-A<21): 8<3)- 
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B.4)lC<3>«fl<22>i B<*>*B i ■•■ < 
<8l>i Bt?> -B<«> IC<7»A< 
2#27 BOX'** 17. 1 '.■■■ i >,A<tt>>, 

2 

262? BOX< *(»>,• ' ■ . 

2038 BOX iBi»'.'< 
2935 BOX (B(8)»B« 
2040 A<23> ■ M18.2) Ifti 
* >«8t2l> iB." 



iB'2 



ten 



»8tU 



2042 BOxr-BtS" - - ' 

2044 BOxr(K< 19. I 

ft<»>»A<ti>*i*i 

2046 BOM ■■■.:■'.. 

. ■ >♦«<»>. ACttl ■■< 

2048 BOxra, 13. i • -»■ 13 >,A(M ■ :•■■ ■ I 

,I)*«<»>,A<K>>.4 

26*0 L1W<»,A<tt • 

269* RETURN 

2100 ' RENVERSENENT ^E SILHOUETTE.. 

2iB4'LlME <0,A(22>-l>-<320.a<iv ! 

2105 TOR 2-8 TO 23 

2118 K<Z,»*A<21 ■ 

2113 NEXT : 

2126 K<li,B>"-K4 18.4-4U 

2122 Kiie.n- -M18.I 1 : K<£lrl>' -l ■ 21 

. li :x< I?.2)-X<I9.4> 

2130 C0SU8 3*4 

219? ' TOIT ET C«P0T 

2200 WK<.3.2>->«6.2>> -■-. 

2216 COSUB 2859 s Pi-P 

2226 X-H(5.1>:y-K<5.2> !L« A(26> I 

>-K(14>l»K 

2236 COSUB 2986 

2233 B<!0>-» ! C<19)-f1 

2248 X-H(6.I> :Y»K<6,2> 

2236 COSUB 2986 

2260 LIKE -<8<10>.C l») .2 =B ! I >*N :C 

11>*H 

2276 Ti •K<5,2^-K(4,e)tT2aK«Q,l>-K(4,l) 

2272 T3-S0B<T2~2»Il-2>:l»-« > 1*. 1 -t I J. I 

)iT-T4'T3 

2286 COSUB 2858 : P2 «P 

2283X«K<5,1> !Y«KC5.2»'.L- SOR • 

2290 P> 3.t4*Pl-P2 sCOSUS 2910 

2295 B<I2>-N :C(12>"(1 

2380 P-Pl : X-N l Y-H :L-O<20> : GOSUB 29 

86 

2393 8<13>-N 1C<13)-N :LlNE-<Bi lOKC', 10) 

>.2 

2310 T1>K<4,2>-K<3,2> : T2 * K<4,l>-K<3, 

1):T3-S0R<T2*2*TI"2> : T5*K< 17, 1 >-l ■ 1 4 . 1 

>:IF TSO 9 THEM T.T3/T5 ELSE P-1.57:PR- 

1.37IC0T0 2328 

2313 COSUB 2850 :PR-P 

2320 L-S0R<T3*2*T4-2) :P-4. 7I*P1-P:G0SU8 

2910 
2323 B<14)«N !C<14)*M : X«N sv«n :L»A(20 
) -T542 :P»P1 : GOSUB 2990 
2327 B(I3>«N :CU3>*H : LINE-<8< I 3 ), C< 13) 
>.2 

2530 T1*K<3,2>-KC2.2>: T2-K ;3. I >-*■: <2, 1 > 
: T3-S0R<Tl*2*T2-2> : T=T5--T3 
2335 COSUB 2856 

2340 L-SOR(T3-2*T5'2> :P*3. 14*Pl-P:GOSU 
B 2910 

2345 B<!6>-»! :C<l6)-n : X-N !V-H : P-Pl 
JL-«<26) :COSU8 2968 

2350 8<17>-H IC(17>H1 : LINE -<B<15>,C<1 
5>),2 
2355 Tl-K(6,2>-r<7,2> : T2 - K<7, I >-K<6, 1 

> :T3 =SOR(Tl'2*T2-2) : T- T4^TJ 
2360 C0SU8 2858 

2365 L«S0RCT3-2*T4-2> : P=P*PI :X«t!(6, I 

> SY*K<6,2> : GOSUB 2910 

2370 3<18>-N :C<18)=H : X=N :Y=N : L=A<2 

0> :P«P1 

2375 GOSUB 2960 : B(19cN : C<t9)=K 

2330 LINE-(B<Ii:>,C<li>>,2 

2382 IF C01-1 THEN2412:*S'PC CPrllQN 

2333X3B<18) :Y=C(I8) : Tl-K<8/1>-K(7,l> 

:T2-K<7,2>-K<8,2> : L»S0R<T1-2*T2"2) 
2396 G0SU8 2918 :B'20>=N JCC20>=« 
2395 X-N :Y-fT :L=O<20' : GOSUB 2988 :8'2 
1)»N : C(21)-P1 

2408 T1=K<9,1>-K<8,1> :T2= K<8, 2>-IC<9,2> 
: L-38RCTl"2»T2-2) 

2465 GOSUB 2916 l8<22>-N : C<22';«« 
2410 X=N :Y>Pt :L-ft<28' =GOSUB 2998 =E<23 
<»M :C(23>=M : LIKE-<8' I 9>,C( 19> >, 2: GOTO 
2419 
2412 X-B<13> :Y=C<18) : L=K t7,2>-K<9,2> 



2413 COSUB 29l0iB<26>-* IC.20--H 

2414 X-N sv.M )L-a<26> >C0SUB 2900 
1>-N l C*21 "» 
2413 L- » ' '■ I ' ■ 

2416 GOSUB 2916 tB<22 »N J Ot£ -n 

2417 :>N iv.n il-h. c t) ■ iCOSUB 2906 IB-23 
>«N tC«2?>-H : LINE-' B' I9>#C' 19 

,'4ii 'tTMIiE rABLCAU ' At) CEPkPT 



2426 TOR 2*9 TO 23 

B427 t 'C.2>-i ■:■*■ 
2430 NEXT : 
2432 RETURN 

284-* * I 'ANCLta ei rani 

t»CE 

2650 FOR P-PP TO 1.5 STEP F 

2860 IF r«W(P)>T THEN RETUPN 

2970 NEXT P 

2072 RETURN 

2960 LINE ':.-■■ -l»;Ih. r ..,-[•■ 

2 

2991 N-X.L4SIN<P>lH-Y»L4C0S(P> 

2905 RETURN 

2910 LINE <X,Y>-<X>L»C0SCP),Y-L4SIN'F .. 

2 

2914 N-X»L4C0S<P>=N=Y-L»SIN<P> 

2915 RETURN :• 

3068 '•••••• PERSPECTIVE (•(#•*•* 

3004 CONSOLE 9,24 !CLS : SCREEN 1.4:mTTRB 

3965 Z-1.13 iX»B2 -( 168-K* 1.2 > >: Y=185iU2 

•-3IU3-0IGOTO 3040 

3018 2-0.4 1X-246 IY-194 i U2-- 1 1 U3-7: SCR 

EEH7.0 

3948 ' PEROULEHENT 

304| ON ERROR GOTO 3197 

3045 LA •K<I5,1>-K<14,1) l H-<K<2,2>-K<1 

.2>)tL-K(2.1>-KCl,l>:C0SUB 3255:C0SUB 32 

92 ICOSUB 3291 : COSUB 3210 

3047 A<3)"X*Z»8.75»<L-LAJ :A(4)= Y*2«(H- 

L'2-LA/2)«8.866 : A(5»=X*L»0. 75»2 EA(6)-Y 

•2t6.366t(H-L'2) 

3948 L"K<8. I)-K<I r I>iH>K<0,2)-K<I.2>iCOS 

UB 3210:COSUB 329UC0SUB 3292 

3969 X-X*2«L»0.75 1Y"Y*(M-L'2)42«8. 36:H= 

K(13,2>-K(8,2) 

3062 L»KU3,1>-K<8,1) 

3065 COSUB 3292 :fl(9)=X*2»L46.75 :s<18»- 

Y*(H-L'2)62*0.866 

3668 X-A<9) :Y-AC16) : L=K< 12, 1)-K(I3, 1 

>: C0SU8 3250 :flC7>=X*24L»6.75 J A(8)=Y 

-24L»0.433 

3871 L"KC11,1>-K<13,1> :GOSUB 3250: S<I> 

•X+24L48.75 :A<2>-Y-24L»8.433 

3672 LINE<A<l>,A<2))-(A<l),AC2)-< K<I1,2 

>-K(10,2))4Z46.866> 

3674 L=K<23.I>-K(13,1> 

3o75 A(11>-X+2«0.754L ! A< 1 2)=Y-2*8. 4334L 

3677 L*K(3.1>-ia2,l>:LA=K<17, I)-K<I4,I>: 

H-X(2,2>-KC3,2) 

3879 X«AC5) : Y=A<6)-H4Z<9. 866 : COSUB 3 

282 

3888 X=X*<L-LA)4Z40.75:Y=Y-Z*(L*Lfi^48.43 
3:L«=R-KC17,1):C0SUB 3255 

3885 LINE-<A<3),A(4>> 

3889 A<3)=X-24LA*6.75 : 01 4 ;=Y-2«LA»8. 43 
3 

3890 L=K(4, 1)- KC3,1) :L0 =K< 17, 1 >-K( 1 4, 
1>:H"K(3,2>-I«4,2> 

3092 X=X»Z*Lft»8.75 : Y=Y-<H-LA/2>»2*0.866 
3695 COSUB 3298 

3108 X=X»Z«L»0.75:Y=Y-Z«L48.433 

3182 AC13> «X :AU4>=Y :fl(33>=X :ft<34)=Y 

*2»Z 

3184 Lfl =K(15, 1)-K(14,1> 

3105 GOSUB 3255 

3107 LINE-<A(3> ,A(4)> 

3188 A<15> =X-2«LA«0.75 : A( 16)=Y-2»LA»8 

.433 : IF Z>1 THEN LINE <fi< 13)-3»Z, A( 14 )- 

3«Z>-(0C15>*Z,ft(16)-2tZ) 

3109 L=K(23, l)-Kt4,l>:AC0)=Y-Z4L48.433 

3110 Lfl=K<16,l>-KC14,l) : H=K<4, 2>-K<23, 
2) :Y=Y-H»8. 866*2 

3111 AC37> = X*Z»8.75»a-Lfi> : A(38 ) = Y-Z» (L 
*LA>*6.433 

3112 Y=Y*H40.966»Z 

3113 L=K<5,1)-K<4,1> : H=K( 4, 2>-K(5, 2 > :Y 
=Y-H*6.866*Z 

3114 COSUB 3282 

3117 X=:X+Z*0,754(L-LA) ! Y=Y-Z4(LtLft>»8. 
433 :A(35)-X*4t2 : A(36)=Y*3»Z : IF Z> 1 TH 
EN LINE fX-342,Y>-(fi(I3)-3»Z,Aa4)-4»Z> 

3118 L«K<6, D-KC5, H!LA =K< 15, 1 )-« 14, 1 ) 



-2IL0iH-K(6,2'-l ■ ' 

3120 COSUB 3292 iCOSUB 3291 ICOSUI 

ICOSUB 3255 

3124 LINE-<A(13>,A |« 

3128 A(3)"X»(L-LA)6Z*A.79 

'2-LA'2>«0.866 

3132 ft' 17>«X«2«Lt0.75 i A< 1B»«V*Z»' h-l 2) 

•6.866 

3136 L"K<?,i:'-> '6,1' !LA «K(19» 1 >-0A<«- 

K<7,2)-ICC6,2' i X-H<I7-»Z4LA4e.T r . IY«ft<l 

8>*2tLAi8.433 iCOSUB 3299 

3140 X-X*2IL46.75 IV » Y*<H-L -2) 4Z49. 86 
6 

3141 ft(15)-X 1A(16)-Y 



3197 jr ERP-5 THEN FPINT-SORT i I 

GOSUB 3ei0!RESU«E 227 
3193 END 

3199 ' 3-PP^ C'E TPfiCftCE 

(.yfJNO-ISOflETPJOUE 



314 



,1 ■->■< 7. 1 ■ 



:L« i 



15,1 • 



H-K8,J>-Ki 
3145 'LICNES TPftCEES SELON Lfi SILHOUETTE 

DE Lfi V01TURE 

3147 COSUB 3292 

3140 E-8 t XX=X*Z4L46.75 :YY=Y.iH-L 2>«Z 

•0.866 

3149 IF<Y-ft(18>)/ABS<X-A*l7)>(8.577 ThEN 
3158 ELSE 3151 

3150 GOSUB 3255 =LINE -< At3) ,«<4 » > J E=l 

3151 IF(YY-A(18i>-'ft8S(XX-A(]7</'0.577 ftN 
D(YY-Y>/ABS(XX-X><0,577 THEN 3152 ELSE 3 
133 

3152 GOSUB 3210 

3153 IF E=l THEN C0SU8 329HC0T0 3156 

3154 IF E=0 THEN G0SU8 3296=C0TO 3156 

3155 COSUB 3316 

3156 X-XX lY-YY 

3168 L-K<9,I>-K(8,1) :H=K<9,2)-K(8,2> 
3162 COSUB 3292 

3164 X»X*Z»L»8,75 ! Y=Y*' H-L'2>»2»0. 866 

3165 L = Kae,l)-K<9,l> !H = K< 18, 2>-K (9,2) 
3167 COSUB 3292 

3169 IF K(7,2>-K(6,2)>12 THEN LINE<A'15 
),A(I6))-(AC13),fta4)) ELSE 3176 i'PLI 
OU HIL1EU DE POPTE SUPPRIHE DANS CAHION. 
HETTE 

3169 LIHE-<A<S>,A<6)JiIF Z< I THEN GOTO 3 

175 

3178 LINE <A(33),A(34))-(ft<33>.ft':34 ■■■; ■ 

13,2)-K(4,2>'6)42*e.36>:LINE Cft(ll> r A<12 

))-<A<lI),fK6>)!LINE-<A<37),fK38)*2»2) 

3171 S=K<18,1> :U=K<19, I >/10 :JF U>2.8 
THEN GOTO 3175 ELSE LINE < A<33) , 0(34 )»(K 
<13,2>-K(4,2)-6>»Z»e.86>-<A(7)«'3»C0S<3.4 
>«0.6*Z,A(8)-S*SIN(3.4)*8.866*Z> 

3172 FOR C =3.4 TO U STEP -6.84 

3173 PSET(A(7)+S»COS(C)»0.6»Z,fl(8)-S«SIH 
CC>*B.866tZ) 

3174 NEXT C :LINE-(ft(7)*S»COS(C)«0.6«2,A 
<!6)*4»Z> :LINE-(fi(17),A(18)»Z44>:LINE-( 
ft(35),A(36>>;LINE-(ft(33)t-2»Z,fi(34)> 

3175 S = K(21,1) :BOXF(ft<:9)-34e.64Z,ft(i0)- 
12»Z)-(A(9>*12»Z,A(10)tl0«Z>,U2:PSET<A(9 
),A(I0>>,8 :PSET(A(7),O(8>),0 

3176 U=K(19,2)'10 : FOR C=l TO U STEP 
8.84 

3177 A(15) =fl(9)*3*S<C0S!C)«8.6«Z :A(16) 
=A<16)-4 *(K(2I,2>-K(13, 2)-S«SIN(C)»8.86 
)4Z 

3178 PSET(fl(15),A(16>) 

3179 NEXT C 

3188 S=K(18,2>:F0R C=4 TO 4.3 STEP 0.86 

3181 PSET(A(7)-54Z*S<C0S(C)»8.75*Z ,«(8> 
-S4SIN(C)»0.86*Z),U3:NEXT 

3182 FOR C=3.8 TO 4.3 STEP 0.06 

3183 PSET(A(9)-7»Z +5»C0S(C>»8. 542, 0( 18) 
-S«SIN(C)»8.86«Z),U3:NEXT 

3184 C=2.5= PSET (0(9) -S4C0S<C>«6. S4Z, ft( 1 
6J-S4SIN(C+8.4)»6.86«Z),U3 

3135 FOR C=2.S TO 6.9 STEP 8.86 

3186 LINE-(A<9> ♦S4C0S(C)«6.5«2, ft( 19)-S« 

SIN(C*0.4)*8.864Z>,U3:HEXT C 

3137 C=3.4 : PSET(ft(7 )*S<C0S(C)«8. 642, ft 

(3) -S*SIN(C*8. 4)48. 3642), 03 

3189 FOR C =3.4 TO 6.3 STEP 8.06 

3189 LINE-(A<7)*S»C0S(C)»e.64Z,A(8) -S»S 

IN(C+8.4)40.86»Z),U3 

3196 NEXT C 

3191 IF Z>1 THEN 3192 ELSE 3194 

3192 P0KE24636,32:PLAY'FftDG-:F0P. fi = 8 TO 
16JL0C0TE 8,8 :PRINT*-<= P1IHI TEH0IN':FO 
R AH=6 TO 46JNEXT OH: EOXF (0, 6)-< 166, 18), 
-5:NEXT:A*=INKEYI :IF A«=CHR$(30)THEN EF 
FA=i:C0TO 3818 

3194 80XF<64,2)-(78, 15),3:PEN l;(64,2)-< 
78,15>:C0L0R 5:L0C0TE I8,0:PRINT-2 VUES- 

3195 B0XF(232,2)-<247, 15),3:PEN 3; (232,2 
)-(247, 15>:L0CftTE 31, 8= PRINT'DEVELOPP. " 

3196 POKE 24636, 0JSETURN 



3206 line ' ■:-;•!.-•■ ...... ... 

S'-'*'Z»0.73»'L-LO',Y'Z49.566»'* 1 

2-mPETUPN 

3210 LINE'X«240.734'L-LO>,Y.2t0.86*»(H-L 

-'2-Lfi'2>)-'X*Z4L40.75,V'249.86(-» - - 

1RETURN 

3220 LINE CX»Z»t.73i<L-lA),Y4r#t. 

L'2-LA'2))-'X«Z»e.^^» L-LA>, 

•6.3e6':RETUPK 

3230 LINE '>!.Y'-<X,Y*2»H»0.866>»RETURN 

3240 LINE (X,V»Z*H»8.860' - . . , 

*(H-L'2»»Z»0.866> 1PETUPN 

3245 LINE (X*Z4L#0.73,Y*fH-L'2'4Z46.866- 

-'X'Z4L»8. 75, Y-24L»9.433': RETURN 

3256 LINE(X*24L48.75,V-Z«L40.437 - 

RETURN 

3255 LINE'X,Y>-'X-2»Lft»0.75,Y-Z«LA4B,433 

) iRETURN 

3268 LINE 'X-Z4LA»0.75,Y-2«LAt8.433>-(X- 

2»Lftl8.75,Y*(H-LA'2>4240.366> : RETURN 

3270 LINE (X-2*LA»0,75,Y»(H-Lft'2)tZi0.86 

6)-(X,Y»H»Z»8. 866): RETUPN 

3275 LINE(X-2»Lfi»8.75,Y-2«LA»8.433)-(X*< 

L-LA)4248. 75, Y-24 (L'LA/40. 433 >: RETURN 

3288 LINE<X*(L-Lft)»2»3.75,Y-24(L*L0>»8.4 

33)-<X*ZiL«6.75, Y-2«L46.433> : RETUPN 

3282 LIHE<X»Z40.75»(L-LA),Y-2»<L*Li.'40.4 

33)-(X,Y*H*2»0. 366)= RETURN 

3285 LINE<X.Z«0.75»a-Lfl<,YtZ»e.866»(H-L 

'2-LA^2>)-(X,Y.H»Z»6. 866): RETURN 

3296 LINE <X-Z»LA«8.75,Y*2»(H-Lfl'2>«6.86 

6)-<X*2»0.75«L,Y-Z4L46. 433): RETURN 

3291 LINE (X*2«0.75»<L-LA),r*2»8.866t(H- 
L'2-LA/2)>-<X-Z«LAt8.75 , Y-2»Lfi«9. 433 ■ : R 
ETURN 

3292 LINE'X*24L40.75,Y»<H-L'2)«Z40.S66>- 
(X,Y) :RETURN 

3295 LINE ( X, Y ;-<X«2i0. 75»(L-L0), Y»248. 8 
66»(H-L'2-LA'2> iiRETURN 

3296 F=X*Z»0.75»(L-LA>! C"Y*2*6. 8664 (H- 
L^2-L0/2) : Fl -CF46.577 

3297 PSET (F,G>!F-F-1 !C=F1-8.577«F: IF 
G)F»8.577»O(l3)-A<17)»0.577 THEN RETURN 
ELSE 3293 

3298 GOTO 3297 :RETURN 

3299 LIHE'.X*24L<8.75,Y.(H-L'-2>»2»8.e66>- 
(X-Z4LO40.75, Y-24LO40.433>: RETURN 

3300 'LICHE EFFOCEMENT PART IEL(CONHE 3 
296) 

3316 F-XX tC»YY 

3315 Fl-C-F»0.577 

3328 PSET<F,C) ! F-F-l : C-FI»F40.377 

3325 IF G>F«(Y-A<18))''(X-A(17)>*0(18)-ft( 

17)4(Y-ft(18>>^(X-A(17)) THEN RETURN 

3330 GOTO 3320 

4080 '•MMMMOOHNEES •*»»•••«»•«••■•« 

4061 DATA 10,173,10,168,15,563,25,144,85 

,133,110,110,168,111,199,140,208,142,210 

, 166,214,169,213.178,185, 173,48,178,230. 

178,316,178,249, 113,235, 143,24,18,16,28, 

16,11,36,192, 157,175,141,117,242,152,185 

,148 

5000 '••••4444FICHIER • 

5816 CONSOLE 5,11,8:CLS : OTTRB 6,6i PRI 

NT-LECTURE D' UN FICHIER :' 

5028 INPUT "QUEL EST L£ NUMEPO DE VOTRE 

FICHIER-JN 

5030 0PEN-I",4N,-»EPER0GE" 

5046 FOR 2-6 TO 25 

5056 INPUT«N, K(Z,9),K<2, :.-...' 

5060 NEXT Z 

5062 1NPUT4N.COM, SPORT 

3678 CL0SE4N 

5030 RETURN 

5100 CONSOLE 8,24,0:CLS:lOCaTE 3, 18: INPU 

T -DONNEZ UN NUI1ER0 A VOTRE FICHIEP";N 

5110 OPEN-0-,iN,-REPEPftGE" 

5120 FOR Z-0 TO 23 

5130 PPINT4N,»;(Z,0).K<2.1),K<Z,2) 

5148 NEXT Z 

5142 PfiINTtN,CAn:PPINTlN, SPORT 

5130 CLOSEiN 

5160 GOSUB 230:CO3UB 709:RETURN 

875B IF 2«13 THEN Z=10!COLOR 3SL0CATE 5, 

I :PRINT*DONNEES ANNEXES" :COTO 1713 



TO 7 



LE TOURNIS 



H p 41 



Pas de TIME-MODULE ni X-FUNCTIONS pour ce petit jeu 
de salon qui risque de vous faire tourner la tete. 
Munissez-vous d'une boussole et, surtout, ne perdez pas 
le Nord avant d'avoir entre le programme. 



Mode d'emploi : 

Apres avoir entre le programme (SIZE >-CM). il suffit de lancer I'exe- 

cution de celui-ci en appuyant sur la touche "J" aulrement dit la touche 

-TAN" 

Le nom du jeu apparait : "LE TOURNIS" Eventuellement II taut mettre 

une semence pour le generateur de nombres pseudo-aleatoires (si la 

calculatrice aftiche : "SEMENCE ?", on inlroduit un nombre "s* lel que 

CKs<1 et on relance ie jeu par un R/S). 

Apresle nom du jeu. la calculatrice affiche : "DEPART. FACE" suivi de I'un 

des 4 messages suivants : 

"AU NORD" 

"AU SUD" 

"A LOUEST" 

"AUESr 

Ceci signitie qu'au debut de la partie. notre tete est orientee face au 

point cardinal indique. Ensuite la machine nous previent qu'il nous faut 

nous orienter par un : "ORIENT VOUS, A partirde maintenant uneserie 

"d'ordres de mouvement" va apparaitre a I'ecran. Ces ordres de mou- 

vements sont oris dans la liste suivante : 

"DERRIERE" 

"DEVANT 

"AGAUCHE" 

"A DROfTE- 

Le message "DERRIERE" signitie qu'on a fait (mentalemenet) un demi 

tour sur nous-meme. Ainsi. si le depart nous avait place face a I'Ouest, 

Ie message DERRIERE nous met maintenant face a TEST 

Les messages A GAUCHE et a A DROITE, nous font faire respective- 

ment un quart de tour a gauche ou a droite. 

Seul le message DEVANT conserve notre position precedente. Les 

messages successifs affiches par la machine remettent en question 

sans cesse notre etat precedent. 

II n'est pas bien difficile de deviner que le dernier message (clignotant) 

de la machine: "N.S.O.E- ?" ne fait que demanderle point cardinal qui 

nous fait face a la fin de toute cette agitation. 

Pour repondre, il suffit d'appuyer sur Tune des 4 touches numeriques 

quisuivent:5— lenord.. — lesud. t— I'Ouest, 3— l'Est;(onpeutvoirque 

le "point decimal" vaut 0). 



En casdemauvaisereponse, la machine affiche le message :"ERREUR. 

VOUS ETES FACE" a la direction reelle" ". Si la reponse est au con- 

traire correcte, la machine nous le confimie par "EXACT (+ double 
BEEP). 

Ensuite la calculatrice nous demande si on veut une nouvelle partie ou 
eventuellement rejouer la meme partie : "NEW:J VER-'I". 
Andre FLEDRICH ^ n appuyant sur la touche J nous commencons une nouvelle partie. En 
appuyant sur la touche I (c'est a dire la touche "COS") nous pouvons ve- 
rifier le deroulement de la partie precedente. 

II n'y a pas decompteurde parties mais celui-ci n'est pas difficile a reali- 
ser si on le veu" 




8919 25.83 
ei.LBl "TOURNIS" 
82.L8L I 

83 -HEttE PfiRTIE- 

84 BVIEM 

85 PSE 

86 RCL 83 

87 GTO 88 
88.LBL 89 

89 "SEHEHCE ?" 
18 PROWT 
11 STO 88 
12.LBL J 

13 " Le TOURNIS" 

14 PVIEU 

15 PSE 

16 CF 85 

17 RCL 88 

18 ENTERt 

19 CLRC 



28 SICK 

2i x=e? 

22 CTO 89 

23 RDN 

24 FRC 

25 BBS 

26 M? 

27 CTO 89 
28.L8L 88 

29 STO 88 
38 STO 83 

31 "DEPORT, FHCE- 

32 flVIEU 

33 XEO 14 

34 18 

35 « 

36 5 

37 * 

38 INT 

39 STO 81 

13 



48 XEO 14 

41 4 

42 • 

43 INT 

44 STO 82 
45.LBL 87 

46 CTO IND X 
47.LBL 88 

48 -nu SUD" 

49 CTO 84 
58.L8L 81 

51 "fl L'OUEST- 

52 CTO 84 
53.LBL 82 

54 -PU NORD" 

55 GTO 84 
56.L81 83 

57 "fl L-EST" 
58.L8L 84 
59 BVIEN 



68 TONE 9 

61 TONE 8 

62 PSE 

63 FS?C 85 

64 CTO 88 

65 "ORIENT. -VOUS" 

66 FlVIEU 
67.L8L 86 

68 XEO 11 

69 4 
78 » 

71 INT 

72 CTO IND X 
73.L8L 82 

74 "DERRIERE" 

75 GTO 84 
76.LBL 83 

77 "R CDUCHE- 

78 GTO 84 
79.L8L 88 
88 -DEVDNT- 
81 GTO 84 
82.L8L 81 

83 -fl DROITE" 
84.L8L 84 

85 AVI EN 

86 TONE 9 

87 RCL 82 

88 i 

89 4 
98 NOD 

91 STO 82 

92 DSE 81 

93 CTO 86 
94«LBL 15 

95 -N. S. 0. E. 

96 CF 22 



97 flVIEU 

98 PSE 

99 FC? 22 
188 CTO 15 
181 CTO IND X 
182.LBL 85 
183 2 

184.LBL 83 
185.LBL 81 
186.LBL 88 

187 RCL 82 

188 X=Y? 

189 CTO 88 

118 • ERREUR, VOUS 
HI "FETES FACE" 

112 AVIEN 

113 SF 85 

114 PSE 

115 CTO 87 
116.LBL 88 

117 -EXACT" 

118 flVIEU 

119 BEEP 
128 BEEP 
I2HLBL 88 

122 -NEN=J 

123 PRONPT 
124.L8L 14 

125 RCL 88 

126 9821 

127 « 

128 .211327 

129 ♦ 
138 FRC 

' 131 STO 88 
132 .END. 



VER=I" 



TRIPOSAUJATHLON 



Revive? en direct sur votre Canon, les grands moments 
de jeux olympiques ou entrainez vous pour ceux de 
Los Angeles. 

Emmanuel BASTIDE 



Mode d'emploi ; 

Vous 6tesundesathl6tespr£sentsa Los Angeles pour les Jeux Olympi- 
ques et vous allezparticiperd trois epreuves dans trois disciplines difte- 
rentes. 

1 . LE SAUT EN LONGUEUR : Sur I'ecran vous etes represents par un 
athlete en mouvement. Pour I'arreter le plus pres de la planche de saut 
el sans mordre vous appuyez sur - ; vous files stoppe net el de petils 
segmentsapparaissent sur la gauchede voire ecran.ceux-ci represen- 
tent les d^amesde degres de i'angle que vous formez avec la terre lors 
de votre saut. A vous de choisir le meilleur angle (appuyez sur :) et 
d'egaliser !e record de 9. 10 m. (Longueur maximale pouvant etre at- 
teinte au cours du jeu). 

2. LE LANCEMENT OU POIDS ; Cette fois ci, vous etes immobile et les 
dizames de degres defilent de la meme maniere mais i!s representent 
Tangle (erme par votre bras lors du lancement du poids. Lorsque votre 
choix est fait, vous appuyez sur I et le poids s'erwole. Cette tois ci. le re- 
cord est de 31 m, 

3. LE LANCER DU JAVELOT : Maintenant. vous surplombez le stade ; 
pour vous arreter. appuyez sur *. 

Les degres qui vont defiler representent Tangle par lejaveiot et la terre. 

Quand vous le voulez vous pressez la touche - et peut etre egaliserez 

vous le record de 127 m. 

A la fin de ces trois phases, vous allez voirs'afficher sur votre ecran les 

disciplines avec un % en face de chacune d'elles. CES POURCEN- 

TAGES REPRESENTENT VOTRE PERFORMANCE PAR RAPPORT AU 

RECORD. 

Enfin, un dernier pourcentage apparait ; il correspond a votre note sur 

100 donnees par Tordinateur Ainsi on peut jouer a plusieurs et le ga- 

gnant est celui qui obtient le meilleur p-iurcentage. 



3 PEHHSSAuT £N LONGUEUR**! 
6 CLEAR 




io locate 2. l : p«* I nt - sou r en longueur - :Beep90, 
12 for 1-1= "o :l" step 1«:psetii,3Di:beepi,i 

15 PSET>aa,24I :PSET<BB.24) :»S£TiCC,Z3>:PSETtD 
D.23I 

16 PS£Tiee,26i:PSETiff,27i:RSET<GG,27i:P3ET(h 
h,27i :PSET t 11,271 :pseti J J , 281 

17 PSE T <LL, 29 >: PSET INH, 291 : PSET INN, 301 :PSET<K 
K.29. 

20 PPESE"EE, 261: PRESET iff, 271 :pre3EHG5,271 : 

21 prESETU1,271:PR£SETiJJ,29i 

22 PPESET r L l., 29 1 : PDESET 111", 29 I : PRESET ( NN, 30 ) : 
PRESET IKK, 291 

23 8EEPZ3.1 

jo ff«ff.i:GG-GG*1 : hh-hh. l : II-11M:JJ-JJ.i;kk 



1 IF NN>-19 THEN 

2 kn-4ooo:for I- J 


102ELS6 110 


3 locate 4,o:prin 


-vous-;locate i 


4 LOCATE 7,2:P«IN 

i s-STicmoi 


•morou- :gotoooo 



276 GOSUB ( 



1 PRESET(AA,241 :PRESET 

fES£T(DI),23l 

1 PRESET (00, 261 r PRESET IPP, 26 J = PRESET 



PRESET ICC, 231 



A^, o7 



1,241 :PSET'Bi,2J i : B 3ET 



',2ei :FSEI IM,Z*ltM£l 



i :Fsenss,ZG>:tEE=;o 



302 e- c INtl i£-OI*100l - <J 
V13 [F Z'O THEN 2-0 AHO C"0 
504 IF C(0 THEN Z-0 AND C-0 



24i :preset ibb,; 



;PR£SET I DO, 231 



321 PRESET (FF.27J : PRESET! GG , 271 : PRESET I 

: PRESET II I, 27 l: PRESET I J J, 26 I 

922 PRESET 1 KK, 291 : PRESET ILL, 29 I : PRESET. 






1INEXT I ICLS 



30 ' 



!-BB-l:CC-CC-: 



:EE-EE.l:MM 



32 IF s-3Theh 93 

33 GOTO 13 

oa aa-aa.i:bb-bb-i:CC-CC-i:dd-dd-i:ee-EE-i:ff 

93 hm.hm-i: ii-ii-i: jj-jj-i:kk-kk-i:ll-ll-i:mm 

96 PSET t aa. 24 >: PSET IBB, 241 : PSET ICC, 23 j: PSET <D 

97 PSEKEE- 1,261 : PSET IFF, 271 : PSET ( GG, 2? I : PSET 
(HH.27) :PSET 111,271 :PSET < JJ.Z81 

99 PSET ILL, 291 :PSET 1HH.29! :PSET<NN,30I : PSET IX. 



?RA 


PBESETISS -'61 






207 LOCATE 4,2:PRINT A 1 *»* 1 B 1 - »' t BECP70 , 4 




An-AA.i;BB-BB.l:CC-CC 






209 LOCATE 4,l:PRINl-L0S ANGELES':BE£P90, 










209 UU-lNTt IA/3IK100) 


28B 


IF 00-IINTUZ»101'IC» 
G0T0283:BEEP20, 1 


11.19UTHEN 290 




210 GOT0I29O 




ba>aa: bb-bb:cc-cc:b-d 


:oo-00:pp-pp 




NT '3* PART1E':BEEP43, 7 










291 REH»»»LANCER DU JAVELOT*** 




005U8 400 






299 FOP I-| TO 70O:»EXT I1CLS 










3 10 G0SUB23OO 




rF cto and Z)-o then 


-ABSiCi 




320 a-o:B-i:C-o:d«3:e-4:f-3 






1 -c-*:BEEP70.4301 




330 <!0SUB3000:G0SUB3O10 




E 3,0:PR1NT-LOS':LOCA 


E 9,0:PRINr"ANGELES 




■:PEEP90,4 






340 PRESET I A, 131 : PRESET <B, 161 ; PRESET tC, 171 


302 


TT-INTi IZ/91»I0OI 






341 PRESET IE, I61:PRESETIF,16> : PRESE T I D, 16 1 



.'LOCATE 2,0:f 



18 STEP 3:8EEPI*2.2:PSET1I,3 



6,23i:PSETtl2,2 
4,231-113,23) 



) FOR 1-90 TO O STEP-I 

> IF S«l THEN 1100 

•. IF 1-0 THEN GOTO 1000 



30 IF t 1-30 THEN I 
40 I* 1:30 Then E- 
30 0-1 IIHTIBIMM] 

32 AA-7/(3&»0'2/4- 

33 CC-20-144#AA-i; 

33 PSET 



i E-u»u#(I*li 

:/4-6«oi :bb--(12*oi*aa 

i-12*II 
>BB*1*CC1 

*intifi:next j:presetu.pi 
« 1-1 to 40:nekt iipreset' 



20 1 P-P' 
204 GQT[ 



TMCK 1370 



rSitiooromo 



3^-S GOS'JB 3000:GOSUB3510 

330 IF F^-19 THEN 2100 ELS£ IIIO 

noo for i-i ToiiojMExi i:cls:loca;e 4,o:prih 

"ESSAI N0N':BEEP90,4 

mo: locate 4,;:r = i«T-v4,JE_i' : : 



2 


11 


FOB I-«0 TO O STEP -■ 
S-STICKI01 






12 


IF S-3 TMEM2120 




2 


14 


XX-INXl/lOl 




7 


IS 


LINE(*-XX,31)-( v -XX,21'llO-X>tl 


. eee>;.; 


2 




NEXT I 




7 


70 


0-2/1360/1' 




2 


21 


U-C0SI3. 14*0i :V-SINir, 14*01 :*■ 


F Ml 13. 1*3 


2 


^0 


IF I<- 30 THEN 2140 ELSE 2130 




2 


3C 


'j-iii*x*<w*io>>/3>:goto 2139 

Urn ■ { 90-11*4. 3«U' 





2160 IF LMO THEN GOTO 249g 

2161 0OSUB26OO 

21flO 0-0'l:E»E'l:F-F.i:BEEF45,i 

2 IP I PSET I 0*1, 16>:PSET<E«1. 161 : PSET IF. I, 161 

2192 PRESE* iD-1 , 161 : PRESET IE- I, lot : PRESET IF - 1 

2183 IF F>(INTI.7*Z1 '191 THEN GOTO 2183 

21B4 GOTO 2180 

2183 IF Z-0 AND C'»60 THEN 400O 

2136 FOR I"l to doinexi i:cls:locate 3,o:prin 
tlcs angeles-:beeR70,4 

2107 locate i, i :PRINT*LANCER CU JAvElOI-: BEEP 
2190 LOCATE 3,2:PeiNTZi ■■• 1 C I - en " : BEEPBO. 4 



IIRCLEIO. 161 ,40 



7303 GOTO 2190 

2304 2-OIC-O 

2303 OOTO 2180 

2600 C-iINT nU-0i«10-.'i-Li :.--0 

3000 PSET I A, I31:P«ET'B, 161 IF SET IC, I.'CREIORN 
3010 PSET ID, iai:PSET<E,1»i:ps£TiF, la I : RE TURN 

3089 FOR I-l TO 300INEXI IIClC- 

3090 LOCATE 4 , O: PR I NT 'SUE FAl TES' : LOC AT E ?.ll 

3091 FOR I-l TO 300:NEXT UG0TO2100 

4000 for i-l to 420:next i:cls;locate 4,o;pri 

NT 'ATTENTION": BEEP300O, J 

4010 LOCATE 3,l:PRINI-A VOS PIEDS*:BEEP3000, 

3:G0TO 2186 



I RGTI 



■i:r,'--:n\ 



4340 0G-1NT( I Tr .UU'EEl /3) 

4*01 FOB I-l I01SOOINEXT I1CLS 

.1909 i.ocatt j,o:PPINTLOS ANOElES* : BEEP43, 3 

.1=10 LOCATE 3, IIPRINT-PERFORMANCC: *|O0t**':»l 



3000 for i-l toi: 



i:cls:clEAR:o 



Suite de la page 4 



* 



MINI-TRAITEMENT 
DETEXTE 



«ie PP[MTTfie'3?C0»' II •■+Z7PIHT 1 %' ' 3-LEW Cty*< 1 1 "' Vi , ' 

«»",II 

'S.2% »e;<T II 

S639 PPMIT ppnr r ' , PPES^F;Z < <?nt»r > prjl^» COMTIHtJEP 1 

5^4? FOP TP=1 TO 2 

56M ?H*-INyE7* IF •:.«•' >CHPV ! 3 > THEM WW 

5f,C? NEXT TP 

«?9 CLS 

7689 POINT PP I HTPPIMT 
gggg FOP !I»3 TO 16 

Z7QQ PPI»TTflB'3/C0»' II ■*' : ,TPIH<:v<?-l_FH";0«i 



. II 
HEX" 



??■<, PPIMT USING" 



II 




"■?2Q PPIHT PPIIIT-PPE^SEZ - -r.f.*r > PQljp COHTUIUEP" 

9730 SFW'IHi'EY* IF W > CHPVI3) THEN *!?39 

■5740 CLS PPIHT^PPIMTiPPIMT 

r>7"A PPINT- 'l' SENS rj'ijup roMitfiHDE" PPIHT" '2' PO'JP LtSTE np^ rrmMflnt'ES" PP 

INT" '?' PO'JP CONTIMijfP" 

ri?W PPIIIT pphit ppiht- VOTPE CHfJIx ' "j 

V70 S«*=I1WEV* 

57?0 IE SM'V'i- HflO SR»'>"2- HflO ?h»'>-3- THEN r.OTO -i779 

T7?0 PPIUTSfl* 

r,W<i IF Sfi*-"3" THEN CLS'GOTO V&i 

5>310 IF Sfl*-"2- THEN GOTO 5W 

■!920 ' 

Z-BW CLS PPIHT 

??4? IHP'JT M EHTPEZ LE HO [>E l_R COHwlir-E ?",pe« 

*.c*.r< [F •/flL'PE»ri OP VflL/PE«>->1'5 THEN GOTO ^9W 

',?.f.n PPINT PRINT 

TS70 PPIfiTTflP.' ' 12-LEN' cot' VRL' PE* > > > "2 KO*' VfiL' PE« ) I 

5880 PPINT'PPIHT 

^9?? IF LEN'SI*'VBl_'PE«J1i'-32 THEN PPINTTfie" 32-1 EN' -■.]*' VRI ' PF* > 1 > ■>'? ^I»r Vffl ' P 

E* 11 ELSE PMNTOI#XW«.<RE»>> 

',-.r.n ppiht PP!NT PPINT"PPE^?E7 ' -r&_tr > POUP C0NTIN1JEP" 

39J8 Sfl»-IN^EV*' IF Sm«' >CHP*' 1 3 > THFN GOTO 5910 

'-?213 CLS PPINT PPINT 

5330 PPINT" -I' POUP I.INE R'JTPE COMffRNDE H - PPINT" '2' pnijp | JSTF Tf^ rOMMfiNfJES 

"PPINT" '?• POUP C0MT1NUEP' 

5940 PPINT PP!NT" VOTPE CHOIX ? ", 

5950 Sft*-INKEY*'IF gRfX> a l* AND SFl*':-"?" RND SM'>"3" THEN 5950 



3960 PPIHT SO* 

3970 IE S0»="1" THEN GOTO 5930 ELSE IE Sfl»- 

3900 

5990 ' S'PCM ■ MEMOIPE 

«000 ■ 

' MEM tttf 



?' THEN GOTO 3W0 ELSE CLS^GOTO 330 



6»10 CLS PPIHTTflP/ I0i"t' 

(rft 2 C FPINT PPINTPPINT 

5H-!d PPINT"VOi,tLE7.-V'S EFFRCEP 1-0 MEM <0/N> ?" 

«04W Sfl«-INKEY» IF SfHO'O" HNP SP^'i-'N" THEN GOTO <040 

6050 IF Sft*^"0~ THEN PUN 

<S0€0 CLS GOTO 550 

6076 ■ 

600« i 

5090 i 



OBWQ° N 



32 



"1yltt*r",-tfN 



6150 MM W<lWe>,C0tXlS>*Sl«i6) J e»X2SS>.88»t25fi) 

6170 T*="«" Sl = 10 :S2"2O'Pl-lO^P2"20'^-10'W"eO'PS-32'IN-t 

6180 i 

6190 ' LECT'JPE EN PATHS 

62W* 

-=?10 PFSTnPE FOP II"1 TO \f, PEHP CO«II>'N£XT II 

6220 FOP t T-rT TO 16 PEOf^ SI«MI>HEXT It 

6210 PETiJPN 

625Q CfiTH • , croAi-".' , ncr**r' , ."»dl*'M-". Vo«rMT.d«-s • <<** 

ins*rsr". , 'li«t»r"."'nl isf.er" „ „ 

t.260 riOTfi "^hirQ-rr'-.-'fiT-ion^r"."***^!^-. "option* . r»*,*1*r*r . UUVir 

"^ DHTfV'CPFMTinN FT qiniiT OF TEXTE." . -CPFOTIOM ET flJWT r>| TEXTE RVEC NO OE . LJ 
GNES."."rHONCEMENT DE CflRflCTER6S.','U9T6 PES COMtiflNOES DW^BLW.-j-OMTftOCTt 

ON DE LICHEE OE TE^TF" . "FIN PU PPOGPPMME" - "PECHEPCHE PE COPOCTEPES" , "INSEPTION 

yj'SnTftWICHBa r... TESTS 81* L*eCWH".' HFFICHOGE DU TEXTE SLW L'ECRHN AVEC 

r-ii. OftTH-VIOf '0 MFMOIPF rFHTPniF.""PfTNHE LP, P0SSIBIL1TE PE CHRHGER LES PfiRFiHE 

TPES PF REPPF^ENTflnONPU TE/TE SUP L^PRI! OU I. ' J M ^ I :^ H ^; | "_ ,.„„.„,. 

6320 PRTfl 'TEMPI HrH<FNT r.'inir- i tniiF. " . "SOUVEGRPPF DU TE>:TF SUP rfl r .SETTE 

6330 

6340 

6350 

63GO ■ FT VOtCl ' fi r - r TIT MOT ^E LR FIN -i 

^?P0 ' OVF i CO FTE PUP. MRIS I'V 8UI8 Ol.lfiNP MEME RPPIVE ". 

6390 

^40fl • FIVEC TOUTES MES EELIOITRTinNS. . . 

6410 ' SIGNE RMRPR CONTE ■ 

6420 



BOITE NOIRE 



Void une adaptation sur ORIC du celebre jeu de la Boite 
Noire. Toutes les explications sont contenues dans le pro- 
gramme. 

CejeuaeteconcusurORICAtmos.maisilsutfitdenleven 
a I'axe des X dans les instructions plot pour le passer sur 
ORIC-1. (Ex. : lorsque vous avez plot X, Y Z, inscrivez plot 
X-1, Y Z). 
Attention ! Lirradation provoque I'accoutumance... 




GUIRAUD 



owe 1 



'•WXTJ.I 



^V P0RI-4ae3£TtMeQ39 P0KE1.32 HEX1 CLS PflPERB INV 
ff [ 1 ^ T "]™' 3 REWft P«CEfl*4SW».lI-7 UNIT IP HEX! 

x*: 2£1" IT0B3 ^^ p».ER*48eeo-i2r reset 

» ^^S ? L^>E484r9,?2 PWE4S47* ,^ 

39 PL0T11.23,CWS(96> ■PL0Tlj.25.-E. OURttJD 1934 

32 f-OT :?.£?. 6 PL0T12,23,2 

34 FORI=432O7TO43-3083TEP40 P0XE1.12 NEXT 

36 r ET R» CLS 

37 REM 

2 " ?EM INITIALISATION 

3? REM 

48 DIMX(32>.Y<32>,P<32>.«32> 

« SK" 1 !^ tEat>0 «>«*•« i*»jm».i«xi 

«« F0RI-IT032 RERC4M > NEXT 

46 F0fti>iT032 RE«XXI> NEXT 

47 REM 

43 REM REGLES ET NIVEP-JX 

49 REM 



32 iFftt«-o*THENG03ije8eee 

54 CLS PLOT5.3. -Niv-ju (J* difficult*-" 

« S£!£'?l*"j ~~> 3 flT0MES * trouvw" -PLOTS, 11,2 
^ 2-JE2'12""3 ~ _> 4 flTW1ES * trouw- PLOTS, 13.3 

62 Stm ~ _> 3 RT0MES * t «» w '" ,p wffe'i3'i 

54 !FFW--l-THeMMI-3;Q0T089 

66 IFft»a-2-TtCNHI»4iG0Tr)89 

68 tFA*="3"THENNl-5>GOT039ELSE62 

SO CLS COSIJB9099 

37 REM 

33 REM M13E EN PLACE ftTOME 

89 REH 

99 F0RI<=IT0 HI 

92 XMRND<1)*3>*1 

93 Y-<RWK1)*8H1 

94 IF KX,Y)-1THEH92 

95 Ta,Y)»l 

96 NEXT 

97 REM 

99 REM C0MM8NDE3 

99 PEM 

199 F0RIM9T026 FQPJ=25T038:PL0TJ.I." ' 

i©2 PLOTjg. i>. -ec u ii m ur e ?* 
194 GosijEoee 

196 IF P*--M"THENC='126'COT0299 
183 IF 9»-"E"THENC"32^C0TQ299 
119 IF fl»»" "THEM 5C-SC+1 -COTOSW 
112 IF P*-"T"THEN 7899 
114 COT0194 

197 REM 

193 PEM — AFFlCH-COHMftNOE MfiPQ.EFF. 

199 PEM 

299 PL0T38.19," 

292 PL0T31. 19,'CftSE ft" 
284 IFC=126THEMPLOT29.29.-MFlP9'JEP-:GOT0286 

PL0T29. 29 . "EFFRCEP ■ ■ 

296 PL0T39.23.-LIC->' iS0^JB599 

293 IFR»<-fl-0PfW>-M-THEH296 
219 PL0T35.23.ft* 
212 M=2*<: HSC' ft* J-64 >*S 
214 PL0T39.24,"COL->-*COSUe399 
216 H-VflL<R*> 
218 IFM<I0PH^8THEM2I4 

229 PL0T35,24,ft*^N=2*N*3 
222 PLOTH+l.K.C 
224 OTT0I99 

297 REM 

298 REM COUPS JOUES 

299 PEM 
399 IF 3O10THEH SC=19'COT0498 

391 PLQT39-I9.- 

392 PL0T32.19, "WTPE"-PL0T32,29, -CHOIX" 

393 PLOT3!,24,-<C>"PO<JP"'PL0T31,23,"COPPIGEP- 
T39.22.I 

394 B»-""'fl-32 

396 PEPEHT «-fi*l 

393 COS'J6589 PL0TR+ 1 . 22 . ft* 

319 IFft*="C"THENPL0T32.22," * GOTO304 

312 e»=e»*ft*-'XTILftSC'ft».= 13 

314 U=VfiL<8*.' IFIKIQRU>32THEHPUIT32,2I#" "CO 

T0394 
316 X-X<U) Y»Y(U> 

313 P3p.l PL0T29.7-P.3TP*"! > PL0T29.7+P.4 
329 PL0TPXU>*l,rKij>.4 ■PLOTPrUHl ,0/iJW1.4 
322 IFX-9THEM1899 

324 IFY*9TWEN2999 
326 IFY-9THEM3999 
329 IFX-9THEN4999 

397 PEM 

393 REH— SI PI- "3 DE 18 OOtlPS J0UE3 

399 PEM 

489 PIHC PL0T39. 19." PL'JS DE" PL0T32. 29. "COUPS" ■ P 
L0T39.21." fl JOUEP" 

492 Pi 0T3I ,23."MfiP9UEP" PL0T33, 24, "pi IIS" PL0T32- 2 
^.-FftlPE" PL0T33.26."''T-" 

494 WAIT 399 GOTO 199 

497 PEM 

4?3 rem smsiEs 

.]--.', ETM 

■oOO REPE9T 9*=rE7* 0=0*1 2=IMT'l?^19> 
»2 PL0T3&3.9TRKZ? PL0T32.4.STP«<'2' 
•519 UNTIL MO" RETURN 
987 PEM 

998 REM— DEVIATION WJ PflVON 

999 PEM 
1999 X"#+1 

1992 [FM«9THENiee4ELSE10t8 

1894 PL0T35,7*P-'STP*' , .'+3> PL0T35,7'P. I PL0TP<V*8- 
♦ l.i 



ELSE 



'^PLO 



■ 1 



twft6 PI.0TP'-Y*8.'-*1.0<-Y*8>»1.I'C0T0198 
1919 fl'9 B-lC-2 t>=3 E* 1 GOT0^99M 
£339 Y=Y.l 

2992 IFY.9TMEM2994ELSE2919 

2894 PL0T35,7*P.STR»'23-X> PL0T33,7*P.l PLOT P' 25- 
X>*1 .0'23-X>,l 
2996 PLOTP' 23-X H 1 . 0< 23-^ >♦ 1 . 1 GOTO 1 08 
2819 9=1 B=9 C=l -0=4 E=2 C0T06899 



-1 



4B82 IFX-9THEH4994ELSE49I9 



PLOTPXXHI .0 



4996 PL0TP<33-Y>+t.Ot33-YHl,i C0T0199 

48lt? 9*0 B^i C»2:0-3 E-4:C0T06999 

5009 PL0T36.7*P."ftBS" PL0T?3.7*P,5 

3919 SHOOT :S0iJTIDl. 1809. 8 PLflYl,7.4.40e WfiIT199 PL 

5929 FOPH=n00TO4199STEP15 SOtJNDl.N.lS'HEXT 

5939 GOTO 100 

6000 IPT</<,Y>=lTH£H50ee 

6019 IFT<X-fl.Y-B>=lTHEH6930 

6820 I FTC X+fl . Y+B )= 1 THEH6040ELSE6959 

6939 COTO1909tC 

6949 COTO108MD 

6050 COTO10091E 

6997 PEM 

6993 REM FIN DU JEU 

6995 PEM 

7909 PL0T38, 1?." 

7095 F0RI=1T03 FQRJ=1T03 

7910 IFTC I,J)=1TMEN7929ELSE7940 
7029 N=2*I*3 M=2*J+5 

7939 IFSCPN<N*l,M;i=126THENHT*RT+l 
7933 PL0TN+1.M.127 
7848 NEXTJ.I 



7055 IFSC>H3THENHS=SC 

7057 FOR I = 1 TOLEN' STR*' HS ) >i POKE43033* I . HSCC MlO* f . S 
TR»<HS>,I,I»'HEXT 

7069 F0PJ=1T04 FfiRI = l T033 ■ PLOTI + 1 , J, " -^NEXTLJ 

7959 PL0T16.1.I9'PL0T16,2,19-PL0T15.1.3;PL0T15,2. 
3 

7999 PL0T17.1."SC0PE=- PL0T17,2,"SCORE=- 

7199 PL0T23. 1 ■ UP*' SC ) PLQT23 ■ 2 . STPS', SC ) 

7119 PL0T23.1.1 PL0T23-2.I 

7128 PLOT8.-3."Vo'j;!*r-vo-ja rtiouer- <0^N) '"■CETft* 

7133 IFfiS="N"THEN299«9 

7149 GOT039 

7997 REM 

7993 REM PECLES 

7999 PEM 

3899 IWK2:CLS ^PLOTl -9,5<PL0T1 .8.5 PL0T1 , 13.4 'PLOT 
l.I6.4:PL0Tl,17,7 PL0T1.I8.7 

3995 PLOT!. 19, 7 ■ PL0T1 .20, 1 ^PLOTl ,21 , 1 'PL0T1 ,24,3 

8929 PRINT-BUT DU JEU ■ " 

3825 PRINT"" PPINT ■ D*ns Utnt boit* W>fr«,fi9 

8939 PRINT "utl damisr 8 sur 8, sont <:*Ch*es 3.4 - 
8935 PRINT "ou 5 Billet. C<> sot,*, tits. jto»*5 lue " 

8940 PRINT -vws dewez Iocalii*r le PW* r*>t- m 
8959 PRINT "demerit Possibl». ■ ^PRINT 

3969 PRIMT "COMMENT JOiJER SPRINT 

3979 PRINT " Rfin de determiner tl Position ■ 

8939 PPINT "des *tones. vous smettez un ri»on " 

8999 PRINT "d'un de^ bords df la boite noire en" 

_9180 PPINT "iTtdi4u«ftt a* Position de dePart (de 1 

8119 PRINT "» 32?. "'PPINT" En I' *bsenre d'ato 

mes. le rayon " 
3120 PRINT "voyage en li?ne droite." 
3139 PPINT " JJn rayon 4Ui rencontre un jto«e" 

3133 PPINT 's'jr son tr*J*t est absorbe et n- " 

3149 PPINT "restort f»% de U boite. " 

8145 PRINT * Un rayon ^ui Passe a cote d'un" 

3150 PPINT 'ctOM est de«i->. " 

8135 PRINT'PPINT PRINT" IJNE Tf>X:HE P0«i 

P CONTIHUER' GET ft« CLS 

8169 PLOT1,0,3PLOT1,2,I 'PL0T1.8. I PLOTI . 13. I PLO 
TI-16-1 PLOTI, 22, 5 

3179 PPIHT"C9MWW0eS ■" 

3175 PRINT^PRINT- <ESPflCE> Perwt d'e«ettre 

le" PL0T13.2.2 

8180 PRINT-rayon d*-jne des 32 entrees d* la bOi~" 

8199 PRlNT"te < 1'entree >o«ee devien* ble>je >. " ■ 
PL0T29.4.4PL0T35.4.2 

3209 PPIMT"Si I'atow n'est P»s absorbe, U - 

3219 PPINT" = ortie devient ro'..9e . " PL0TI6.6. 1 ^PLO 
T22.6.2 PPINT 

3229 PPIHT" <M> P-rnet de MHutr HM case" = 

PL0TI9.3.2 

3233 PRtNT"de la boite. en |ndl4u<At se*" 

3248 PPIHT "c?ordonor.ps • i^r.e de ft a H. colon-" 

3239 PR I NT "r* = de I a 9>."PRINT 

3269 PPINT" <E> Per«et d'effacer <jne c»se 

rn ,.r1<i<?e."'PL0T19. 13-2 PPINT 

3278 PPINT" <-T> C"tte d-*i«ande arret* l»* PL 

OTI0.16.2 

8239 PRINT" 'e-.i . fait le* cowPtes. ef .ffiche le" 

PRIHT"scw«. " 

8399 PPINT PPINT PRINT PPINT" l INE rni.ir 

HE POf.lR COtlTfNUEP-'GET Pit 

QIVj CI 8 PPINT PPINT PPINT PRINT PPINT PPINT "PEMft 

PWES " 
8310 PPINT PPIHT 'PPIHT PPINT PRINT"Pa*on absorb* 

8329 PRINT PPINT PPIHT "R*v©n de^'ie 

0" 

8T^9 PPtNT" 

3348 PPIHT" |" 

3343 PPINT" |" 

R4A9 PRINT PRINT FPIHT PPINT PRINT" UN 

E rOUCHE f ufl1lp CONTIHIIEP" 

3410 PLOT 1,3, 5 PLOT17.10.I PLOTI?- 13.1 PI 0TI7. 14. 
! pi 0Ti7,13,1 PIOT17.16.I 

34?9 PLOTI. 21. 5 

8399 GETft* 

3388 PEI'JPH 

3998 PEM ECP9H r>F JEU 

89^ PEM 

9999 F0PI-4T029 FOP l=6T02?=;TEP2 Ptrnl + 1. I, "-" HEX, 
TJ, I 

9919 FOPI-4T0P93TEP2 FOP >7T0?1*.TEP? Pl.riTI* 1 - J. " ! 
" NEXT J, I 

9929 PL0T6.3,"! 2 3 A '. 6 7 8" 

9923 FOPl=4T0183TEP2 P1.0TI»1 .3 . fi NEXT 

9939 PL0T6.23,"2 2 2 2 2 1 I I' 

9935 P1.0T6-24."4 3 2 19 9 8 7" 

■»936 F0Pt-4T01^TEP2 PLOTI*' .23.6 PLOTI *1, 24, 6 HE 



1 STPf/flt P 



XT 
9933 P1.0T29.22.1 R 0T29.25.3 
9848 fi-8 F0PI-7T0213TFP? 8-8*1 

I0T22.I.6 ne::t 

0339 9=24 F0PI=21T07STEP-2 ft-ft*l PLOTI . I ,STP*'fl " 
PLOTI, I, 6 HEXT 

9832 ft»64 FOPI-4P3?0tO483^.a' ; .Tr,P^n R-8* 1 PO^EI-R'N 
EXT 

9035 F0PI-6TO22PL0T4. 1.2 NEXT 

?869 F0PJ-5T023 PL0T27. ;. " *" PL0T26. J.5-PL0T28, J. 
3 ■ NEXT 

9979 PLOT3«.*."RE8ULTftTS- PLOT29.6-1 



ADAPTATION ORIC-1 - ATMOS 

Plusieuf s lee teurs nous onl ecnt en nous posanl des rjuest>ons sur la fa- 
ton d adapter les programmes pour ORIC-1 sur ATMOS Vo»ci quelgues 
reponses. 

La scrutation du clavier 

Sur ORIC-1. deux ordres servent a inhiber la scrutation du clavier 
CALLSE6CA. qui procure un gain de temps de 25 % . 
CALLSF960. qui permet de ne pas lire le clavier pour ne pas perturbor 
rimprimante. 

Sur ATMOS. le premier sobtient en faisant CALLSE76A ; le second esl 
inutile. I'imprimante ne recevant plus de bugs 

Pour redonner la main. I'equivalent de CALL2E804 ou CALLS E807 sur 
ORIC-1 est CALLSE93D. 

Dans son article "impression d'un atmosphile". Didier Ve'rier disait qu'il 
etait possible d'obtenifle RESET sur la touche'FUNCT.C'estvrai.mais 
Didier est un bricoleur chevronne. et e'est au prix d'une bidouilte qu'il a 
reussi cet exploit. Nous deconseillons ceux qui ne connaissent pas 
bien lappareil de s'y risquer. 

Lauto-run sembtevousposerdesproblemes.il taut savoirquel'ATMOS 
teste le niveau auquel est enregistre la cassette, et qu'rl detecte les va- 
riations de niveau en cours d'enregistrement. Or. sur la plupart des ma- 
gnetophones, le controle du gain est automatique. ce qui provoque 
une montee brutale. puis une stabilisation du niveau dans les premie- 
res secondes de i'enregistrement. 

Pourremedieracela.ii est possibled'inhiberledrapeaude controle des 
erreurs en chargeant un court programme lors de la mise sous tension 
de I'ATMOS. Ce programme se trouve en page 222 du manue! anglais. 
et en page 255 du manuel francais. Neanmoins. comme ce dernier est 
assez difficile a trouver. nous vous redonnons ce programme en fran- 
cais. 

10 ' programme d'inhibition du drapeau d'erreurs 

20 FOR D - TO 39 

30 READ N% : POKE 2281 +D,N% 

40 NEXT 

50 FOR D - U TO 13 

60 READ N% : POKE S2B1+ D.N% 

70 NEXT 

80 PRINT "mettez le magneto en position "RECORD", puis pressez 
une touche." 

85 PRINT "LE NOM DU PROGRAMME EST T." : GET A$ 

90 CSAVE— AS281 .E52BRAUTO 'ajoutez,S Pour sauvegarde lente 
100 DATA S08.S78.2AD,;F9.SFF 
110 DATA SC9.S01,SD 0,528 
1 20 DATA ;AD.:B6,;E4,:C9.2A2 
130 DATA 2D0.51 5,SAO,5 09 
140 DATA 5B9.5B5.2 02.299,521, 502 
150 DATA 588,51 0.2F7,5A9,021 
1 60 DATA 58D.245,502,5A9.5©2 
170 DATA 28D.546.502.24C.567.5E8 
180: 

190 DATA 5O0.54C.5B6.2E7.248, 
200 DATA 5A9.200.28D.5'B1.502,568 
210 DATA 54C,522,!JEE. 

Lorsque le programme est rentre. tapez "RUN", puis suivez les instruc- 
tions. 

Une demiere chose sur la touche "FUNCT", vous pouvez I'utiliser au 
cours d'un programme en lisant la valeur de I'octet 5209 : si celui-ci est 
a 5A5, cela signifie que cette touche est enfoncee. 

Sur ORIC 1, plusieurs valeurs servent a accelererle curseuren acces di- 
rect : 775. 336, 999... Mais elles alterent la vitesse du processeur et pro- 
voquent un plantage lors de ('execution d'un ordre WAIT, notamment. 
sur ATMOS. il est possible de determiner la vitesse ducurseur indepen- 
damment de la vitesse du processeur. 

Pour cela. deux adresses : 5 24E (normalement A 32) detennine le 
temps qui s'ecoule entre le moment ou Ton presse une touche et celui 
ou la touche commence a se repeter. 

5 24F (normalement A 4) detennine le temps qui s'ecoule entre deux 
repetitions. Essayez par exemple "DOKE 5 24E, 268" Et on peut le con- 
server dans un programme. 

Sur ORIC 1. I'octet 27 permettait de supprimer le mot "Ready" qui peut 
etre genant dans certains cas. Sur ATMOS, pour supprimer "Ready", il 
taut faire "POKE 27. 205". et pour le retablir, "POKE 27, 176*. 
La reconfiguration des caracteres semble etre votre probleme majeur 
Sur ATMOS, "CALL 8 F8D0" est I'equivalent de "CALL B89B" sur ORIC1. 
Sur ORIC 1, 1'adresse qui determinait la fin de ligne sur imprimante etait 
5 31, et on devait poker le nombre de colonnesajoute de treize. Sur AT- 
MOS. e'est I'octet 8 256, et sa valeur est celle du nombre de colonnes 
desirees. 

Les octets determinant le debut et la fin d'un programme sur ORIC 1 
etaient JJ 5F et 8 61. Sur ATMOS, il y en a 4 : JJ 9A et fi 9C represented 
respectivement le debut et latin d'un programme basic ; 8 2A9et 8 2AB 
represented respectivement le debut et la fin d'un programme machi- 
ne. 

Loctet couramment utilise pour savoir si Ton est sur ORIC-1 ou sur AT- 
MOS est 8DGHIKD. Si sa valeur est de 169, on est sur ATMOS ; autrement 
on est surORlC-1. 

Avec tout 9a, vous devriez bien am'ver a nous envoyer des programmes 
compatibles... 



9939 PLOT30.7," " 

9999 F0PJ-=8 T017 PL0T33 , J. "-V PL0T32 . J. 3 ■ NEXT 

9199 PL0T39.18," " 

9139 T»-"BOITE MOIRE" 

9140 FORI-tTOll 

9159 P0KE48919*I,ft c .C'MU>«'T«.I.l >) 

9160 HEXT 

9170 POKE43019.1 POKE48909.20 P0fE43923,l6 
9I80'PLOT1,2."COMMftHOE3 " PL0T2.2.S 
3199 PL0T14, ]."'M> M#r4..er"'PL0Ti3.1 .1 PL0T17.I.6 
9192 P1_0T14,2,"<£> Eff»r:er" PL0T13.2. I PL0T17.2.6 
9194 PL0T14,3,"<T> Trw./e" PL0T13.3.I PLOT17.3,6 
919^ PL0T26,I,"-'ESP9CE'' Riyon" PL0T2V1.1 PL0T34. 
1.6 
9198 PL0T39.3.? PL0T39.4-2 

9200 PL0T31 ,3,19 PLOT3I.4.10 
9282 T*-"PEC0Pn ■" 

9204 F0PI-tT0LEH'T»vprjrE48927*I.ftSC'MI[>*<r«, I.I > 
><NEXT 

'»296 P'>'E4802r.3 POKE48933,! 

9293 RETURH 

10990 r>8T8283. 329, 369. 498. 448. 289. 290, 339, 369. 379 
.371,411 .451 .4" , ,0.449.29'* 

19919 r>ftTR294. 293, 333- 373. 4 13. 433. 434. 453, 413, 373 
.333,297.337,377.417,437.217 

19920 D8TA299. 399. 381. 340. 389. 420. 469, 393, 343. 383 
. 423. 463 ■ 304 . 303 . 384 . 464 

19939 PftTH465- 468. 478. 472. 632, 692- 732. 772. 812. 693 
.734,775,636.696.736.776 

19949 PftTfi816.638.659<«=0.r9<*. 749. 789,329.819.818 
. 773 , 733 ■ 693 . 662 - 782 ■ 742 , 782 

10059 r>fiTfl822,382,664 . 7«4 . 744. 784.824.663.666, 786 
, 746 . 743 . 783 - 926 , 668 . 788 

19963 OftTHiMR. 788. 323. fi6^.«7«. 749-829.839 

minp r-nTO] .2.3:4,3.6.7.8.?.9,9.9.9,9.?.^-3-'.^.' 7 ' 
,4.3.2.1 

18209 t>HTft 4.6.3.10.12.14,16.18.21 .21>21 .21.21 .21 
.21 .21 .13. 16. 14, 12, 19, 8. "", 4 

10300 DftTP, 0.3.0.0.9.0.8.0.4,4,4,4,4,4,4.4,7,9,11 

,13, 13- 17. 19, 21. 23. 23. 23, 23 
10400 r>ftTft23.23.23.23.?t.t^ 17. 13,13,11.9,7 
2CW)83 POP1-48899T04P039'POKEI.32 NEXT ■ CL« ■ ENO 
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SUPER ARDOISE MAGIQUE 



POIRE PALIR DC uAlOUSIE TOuS LES 
GAOS" MICROS. iDES PQNHE5 ? OUI 

fl parle oc pqmmcs ?...) 

L'AHOOISE HRGIOUE, UOUS SAUEZ 
BIEN:ON FAIT UN TRES OQL I DE5SIN 
PUIS 7 ... DANS LE MEILLEUR OES 
CAS CN L-IMPRIM6, OU BIEN ON LE 
MET EN MCMOIRE AUEC LES DEU* OU 
TROIS MRLHEUAeux SCMBLABlES QUI 
PEUUENT PENIBlEmENT S'Y CA5EA. 
LA HISERE. OUOI. . . 

UN IQEfi OROINRTEUA. SURTOuT UN 

'■mrut oe grhme" comme le z\ 61. 
cr doit pcuuoifl frire beaucoup 
mieux. , . la preuuc : 

oan3 nos 64k. ( voir kikekoi, 

mCBOOGICIEL NO. 29 > , CA N"£ST 

PR3 10. is cu 20, mais na ecrans 

I EH QUI ] OUE NOUS RLLONS MEMO- 
RISER. LE CONFORT, OONC . 



3 An ii 




i-m-l ,..17/45 


a 


APPELLE UN DCSSIN EN MCMOIRE 


1 


ocssn 


C 8QR0URE 


SANS EFFRCCR 


a 


CACHE 


LE CRAYON 


a>DES5lNE 


a>BORD+EFFflCE B 


OEPLflCEMENTS 


B>GOmme 


B>LIGNE 


a>R0INTILLE3 


■ 


DESSlr- 


MEMORISE 


8>0U? (X,Y) 


1 


CFFRCE 


TOUT L"CCRAN B>RENUM 


B 


3AUE 8>IN3TRuCT 


D>BNIMRTION 


1 


COPIE 


IMPRIHANTE) < <M> > . ( <C > > 



TOUTES LCS INSTRUCTIONS 50NT OE- 
TRILLEES DRNS LC PROGRAMME. uOICI 
CELLES Oul SQNT PRRTICULIERES : 

»>OU7 DONNE LES COORDONNEES Ou 
VON 

a>ACNUMEROTRTION, POuR EFFACER 
OU RECOPIER N-IMPORTE CUEL DES- 
SIN N"IHPORTC OU . 



e~ -h:-.-?-. 



a.flN 



Z :'-■-■ ■ 



DEFILEMEI 



U ■' -■ ■ ^ - -- • . utrn 
OE 2 lHflGE5/5EC0NDE. _. 

1'. IT ■_ -;-; = ; - j : = ;:- ;j ;r.:j 

OES 0ESSIN5 :i MEMOIRE. LA fea 
OEUT ETS; =..3II L^GUE QUE L" 
VCUT ET -S--S7 ^£« 3SLENTIS ( 
DOUBLflNT LES IMAGES), ETC... 
LC DEFILEMENT -MANUEL" PEAMET 
L"RRRET 3UR IMAGE. 



on sflisrr une partie de l-ecrrn 
ET On la deplrce n-'impoate ou 

SUR CET ECRPN Ou SUR N-IMPORTE 
OUEL AUTRE ECRfiN ■ 

ON PEUT OONC FRIRE DCS INCRUS- 
TATIONS, OES DE00UBLEMENT5 DE 
»S=10nnRGE5 ETC.. MRIS QUI, 
MADAME, COMME fl LR TELE ... 
PLUS FORT OUE GUY LUX ■ . . 

FAUT-tL INSISTCR 5UR L"INTER£T 
PEDAG0GI2UC ? (LE TEMPS, CmROnO- 
LQGIE, ESPRCE, 3YHETRIE, ETC..) 

DISONS OUE C'EST SURTOUT 
CmOUETTE A UTILISER ...ET R RE - 
SRRDER... BON RMUSEHCNT... 



3BH PpWel OUE <POKE> 16386,255 
FffilT GfiGNER 255 OCTETS DE PLUS. 
C'EST PAS DU LUXE: CE PROGRAMME 
REMPLIT TOTALEMCNT LES 64 K... 



1 REM (M OCTCTS) 

3 SLOU ____ 

■SUPER ARDQIsE MflfilflLIci 
B ACM BjCOPVR IGHT BOUGH 64)1 

LP. LIGNE REM 1 : 



Q fiCM CONSCIL: ENLEUER T0UTE3 
tCSREMlSAQ^RCM^^^^ 

ia let ui-"ea?e62ee<ae42ei2a64a 
3Eei7ia«a3aa68aaia3saaa237i76a36 
2S4aaa2iBi4-aaE42ei" 

n let ut*u«*"eaii32ea2a33a<aae 
a5)e5Bi2 4a64as.ia5**i3aa4afsasaa'#aa4 
349963138* 

12 LET U«- l J«*"3373gi312e&4ai3a 

ala^2aaffl537l7Sa5ia3a34 72Bl■■ 

13 FRST 

14 TOR I»l TO 166 STEP 3 

18 POKE 1681**1/3, UAL UKI TO 
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NEXT I 




SLOU 


ia 


LIST 






II 


REM 


■MUMI1 IHLISHI10N 


M 






71* 








r.;;i 








Ota" 








','A 


i r: 












'. FT 






1 :■ : 






















08 


i i-T 






urr 


LC-0 








:?.<-. 






i fi 






















li". 


l FT 


Ti-me 






UL-uoa 



Z%81 



UN PREMIER <RUN1 
CMRRGE LE LANGRGE MACHINE DANS 
LR LIGNE 1 (REM) .SUIuEZ L.E5 INS- 
TRUCTIONS 0"EFFRCCMCNT. l£UITe2 
DC TRPER LES RUTRCS REM t . 

TRPEZ <AUN> SZ POUR INITIRLISER 
ON 08TIENT ; 




r 



isa gosub i2ee 
17a gosub sae 

IBB LET I«4? 

198 gosu b iapa 

aae rem wmmmmm.-\^-'~.m 

aas gosub i2ee 

2ia POKE 165B8.47 
223 RAND USR 16537 
23a PRINT AT U . 13; "L 

i i |[ "pQu R OCSSINER-;TA 

249 PRINT RT 7.U; "UTILISER LES 

touches a a §eTa";AT a.uj-cm PEU 

T APPUYER SUR 2 TOUCHES" :RT 11 " 



isa 

".IS 
928 

',z a 

939 
99Q 



FOR I»0 TO 63 STEP K*(K> 
PLOT 1,3 

plot 63-1,43 
plot 0.43-ii/i.6> 

PLOT 63.4+(I/1.6) 

NEXT I 

RETU RN 

rem aaasBBViouTiNEsaaaaaB 

ACM ■^1EH0RI5ATI0N ECRANI 



T APPUYER SUA 2 TOUCHES", RT 11,1 *£*" 
j/-p> LA POIS POUR LES DIAQONBLES. J|°| 



102B I .... 

1233 POKE 16S23,PCEK 16-133 

1849 r — 



25B PRINT RT 13, U; "PAR EXEMPLE 
EN RPPUYANT SUR ; '' l AT 17 * 
T B , ON OBTIENT: >";TA8 _,, 
2o8 PRINT AT 2 1 , 9; '' (PRES5ER UNE 
TOUCME) >" 
278 GOSU B Tl 
299 REM BiBBMilNSTRUCTION^PMBja 



RRND USR 1&515 

RETU RN 

REM ■■TESTE TOUCHEPJ 



E 1189 IF INKEYH 

1119 

1129 i 

1139 l 

1148 I 



-..IPPELLE UN 
DCSSIN EN MEMOIRE f -;AT B,U;"a>DES 
SINE EORDURE SANS ErFRCER'" 

33a PRINT RT 7 , U; "B>CRCME LC CR 
AYON a>DES3INE"; AT 9,U;"a>B0RD 

*EFPRCE D>DEPLRCEHENTS'- 

349 PRINT RT 1 1 , U; "aJGOMME H>L 
IGNE a>POINTILLES f -,"T 13,U;"i>D 
ESSIN MEM0RI5E 8>0U2 IX, Y) '' 
359 PRINT RT IS , U ; "B>EFFRCE TOU 

r ".CRRN a>RENUM' , ;RT 17,UJ"S> 

~ 0>ANlMRTION f - 

U; • , B>COPIE tIMPR 



_. _.J3TRUCT 

3&a Print rt v. 

IMRNTE) ( <M) > , ( <i 
37a GOSUB Tl 
375 LET - 



RINTflT 0.0;ft« Ii 

cm mtDz-.tmm'z 



tea 



*ie unplot : 
428 plot x,\ 

439 GOTO CLA 
448 REM B(GO)l 

438 PLOT X. . 

468 UNPLOT X.Y 

588 REM |[CLA)iaaLECT.CLRU 

E28 LET P-PEEK 1B421+2664PECK 1 
6422 

53B LET X.X+K*(P.63471 OR P. 393 
75 OR P-BB2791 *IX(63-K) -K* CP-B73 
38 OR P-83223 OR P -B73191 * IX >K) 

848 LET Y-Y+K* tP-61423 OR P>532 
23 OR P-59375) #IY(43-K) -Kt 1P-373 
27 OR P-B7318 OR P-3B279) * (Y >3tK 



OR INKEYI) 



r" " 



358 IF INKEYl 
THEN GOTO R 
868 GOTO ~~' 
S79 REM f, 
571 GOSUB . 
574 GOTO R 
875 LET H«< , 
576 GOSUB 13L 
G77 GOSUB 989 
B7B GOSUB 13B8 

579 GOTO * 

580 REM ■ 
561 LCT 

382 GOSUB 13t. 

383 LET R-CLR 
884 GOTO 
5B5 REM L_ 
586 LCT M*i , 
387 GOSUB 13l 
36B LET R-DE 
589 GOTO " 
599 REM U 
591 GOSUB .^ 

892 POKE 16508,47 

893 RRND USR 16837 
599 GOTO " 
639 REM 
801 LCT . 
60a LET HI 

603 GOSUB 13' 

604 GOTO " 
6ZE REM ; 
607 GOTO „ 
509 GOTO R 

610 REM IP 

611 GOTO 1. 
624 GOTO R 
628 REM ' ~ 

636 LET 

637 LET . 

628 GOSUB 13 

629 GOTO R 
639 REM MP 
631 GOSUB 
539 GOTO H_ 

840 rem cKnm 

643 C03UB US( 

644 GOTO R 
648 REM ""■ 

646 LET 

647 LET H« 

648 GOSUB 
849 GOTO 
659 REM 
651 GOTO 
6BB REM 
656 GOTO 
680 REM 
661 GOTO 

565 REM ' 
667 POKE i . J . 

566 RRND USR 16637 
684 GOTO " 
688 REM : 
686 GOTO 
694 QOTO 
696 REM II 
700 PRINT .. 

<C> > .DC MCMOIRE , ... 
718 GOSUB TT 

720 IF RI-"C" THEN OOTO 730 
730 IF RI-"M" THEN OOTO 830 

740 GOTOR 

74B REM HHBCOPIC 0-'ECAnr«BBBJBj 

7B0 PRINT AT 21,0, "OUEL EST LE 
NOM DE L-'-RRTISTt 7" 

769 INPUT Nl 

778 PRINT RT 21,0;0l;RT 21,0, "[ 
ESSIN N. ] "Jfl-Ji '■ &E: (i ,NI 

789 FOR 1-6 TO 100 

790 NEXT I 
800 COPY 
610 OOTO R 

BIB REM fBCOPIE DC HEHOIRcaBBn 




r-.l'.) 



RINT AT 21,0;"0UEL NUMERO 



DE DESSI.. . 
630 INPUT I 
640 CLS 
859 LPRINT Hi (I 



THEN GOTO 
THEN OOTO 1 



1 2S88 PRINT OR. 
2810 LET 0|»R( tDRl 

2829 PRINT ,,,,"N0. DC LR PLACE 
DC CE 0E3SIN: "j 

2830 INPUT PL „„ _ 
2840 IF Pl<1 OR PL>R THEN GOTO 3 
839 

2850 PRINT PL 
I 2868 PRINT ,,,,">>> UN INSTANT, 

JE TRRUAILLE < < (" 
I 2670 FOR I-R TO PL*1 STEP -1 

2888 LET R« ( I) -fl| 1 1- 1 1 

2890 LCT AJCI,Sfl4 TO 685) - (" " fl 

NO K10) tSTRI I 

2908 NEXT I 

2918 LET fH (PL) Ol 

2928 LET fl«(PL,684 TO 685) = I" " 
I RNO PL < 15) *STR| PL 

2930 LET A=A*1 
i 2940 PRINT lt "IL Y fl - ';fl-l;" OES 



GOTO 4860 
4080 IF RJ.-2" THEN OOTO 4500 
4098 PRINT AT 4,B;" 



4108 PAINT 



"CONNER" 



"LE NUM 



PRINT RT 21,31 
POKE 16442,4 

RETURN 

REM ■INITIAL. AFFICHHGEl 



1160 
1170 
1280 

1210 
1220 
1238 
1288 

iase 

1298 
1300 
1310 
1320 
1330 
1340 
1350 
1369 
1378 
1380 
1390 
1400 
1418 
6399 
1420 
1439 
1440 
1450 
1460 
1478 
♦ STA 
14S0 
1498 
1500 

1510 GOSUB UL 

1520 PRINT Ol.Gi 

1S30 GOSUB UL 

1540 RETURN 

2090 REM BaBMEHORISATON CCRANj 



; ilia i- n i ,-i i , , -it 
SINS EN MCMOIRE" 



I 3310 PRINT AT 

3020 IF NOT U TmTn - iOTO R 

3939 GOSUB UL 
, 303B LET RaSO 
I 3040 IF NOT LC THEN GOTO 3B80 

3969 PRINT ■ HEME DECOUPRGE 

t CO/N) 

3060 LET RI-INKCVl 

3070 GOTO 3060 + 13* iR|.'IJ"} .39). I 



* - o i_- ^Hl^i lit- '-"J nr * t. « 

ERO OU PREMIEA DES3IN 

4110 INPUT HP 

4120 IF NP(U OR NP>MCH THEN OOTO 

4118 
4130 PRINT NP 

4140 PRINT ,,-LE NUMERO DU OERNI 
ER DES3IN | " 
4138 INPUT NO 

4169 IF NO<U THEN OOTO 41SB 

4170 IF NO < -MEM THEN GOTO 4200 
4180 PRINT AT 15,0; "PAS PLUS CRR 
ND QUE : " ; MEM 

4190 GOTO 4150 
42B0 PRINT AT 10,30, ND 
4210 LET ST«1 
4220 IF npcnd THEN I 
SUM flf 1 6.2;"' 



LET Ml-"" 

LET M-594 

OOTO 1400 

LET Mf."" 

LCT M-710 

GOTO 1400 

LET Hl«"" 

LET H*726 

GOTO 1408 

LET HI-"" 

LET H-743 

PRINT RT 0,0 

LET O-PEEK 1639B+2SB»PEEK 

FOR 1.1 TO 12 
POKE 0+M+I.COOC Hlil) 
NEXT I 
RETURN 
GOSUB 136B 

LET MI- , 'HB7 0-' , +STRl Xffli 
I (Y-3) 
GOSUB 1398 

RETURN 

REM ll<N>HNETTOYRGEaaaBi 



I 3080 GOSUB N 
3090 PRINT "PLACER LE CURSEUR A 
GRUCME CTENHRUT DE LR PRRTIE fl 
DEPLACER BB>" 
3108 GOSUB^ TT 
3110 Q03U8 N 

3129 PRINT "PUIS PRE3SER SUA S f 
OUR MRROUER L""ENDROIT flUEC UNC 
ETOILE. «■»'■ 
3139 LET 



202a PRINT AT 21,0; " 

fl MEMOIRE EST PlEINE 

2030 RETURN 

2040 PRINT RT 21,0, "POUR MCMORIS 

CR LC DCSSIN NO.";h;" " RNO R ( 10 

2050 GOSUB TT 



1 3160 LET LA-INT (21-Y/2! 
3160 LET CR-U+INT (X/2) 
3170 LET L2-LA 
3180 LET C2-CA 

3199 PRINT AT LA,CA-U;"*>" 

3200 LET X-X-2 
3210 LET Y-Y + 2 

. 3220 GOSUB N 
3238 PRINT "MEMC CMOSE AUEC LE C 
OIN A OAOITEET EN BRS DE Lfl PART 
IE UOULUC<B>" 

• 3240 LET ET-3260 



3269 LCT LB»21-INT (Y/2) 

327B LET CB-INT (X/2+,5) 

3289 LET CT-3180 

3290 PRINT AT LB i CB-U; " *" 
3300 GOSUB N 

3310 PRINT "CQNTROLE DC Lfl ZONE 
OCCOUPEC... POUR RRRETER, PRCS 



2976 INPUT N* 

2989 PAINT AT 21,0:Ol;AT 21,0, 

ESSIN N.: •';■' " AN& AtlOjA;" 6l 

2090 LET u-fl 

2109 LCT I-fi 

3110 OOSUB 1009 

2128 LET fl-r " 



3320 LET LL-flBS (LB-Lfl) *U 

3330 LCT CC-ABS ICB-Cfl) *U 

3340 OIM CKLL.CC) 

3350 OIH OIILL.CC) 
, 3360 FOA I-U TO LL 

3370 LET St (I) ■■•" 

3360 LET C|(I) -fll(U,33* ILfl + I-1) ♦ 
i CA TO 32* (Lfl+I-1) +CB) 
1 3390 NEXT I 

3400 LET L-Lfl 

3410 LET C-CA 

3420 GOTO 3630 

3439 FOR I-l-IL RNO L<0) TO LL - ( 

L*LL-20> t (L + LL>20> 
i 3440 PRINT AT L*I-1 



.230 PRINT AT 19,0; "RPPUYER SUR 

UNC TOUCHC >>> fi 

4260 GOSUB TT 

4279 FOR I-NP TO ND STCP ST 

4289 POKE 16698,1 

4290 RRND USR 16637 

4380 IF XNKEYto"" TMCN OOTO M 

4310 NEXT I 

4320 GOTO 4270 

4B0B REM BBSCRIC CH0ISICBHB1BH 

4518 CLS 

4520 SLOU 

4630 IF C«-"' TMCN OOTO 4660 

4540 PRINT "NOUUCLLE SCRIC 7 (0/ 

46S0 OOTO 4550+ [INKEYi.-O") *3S<i* 
HNKeY|."N") 

4360 LET Oln"" 

4670 PRINT -COMBIEN OC DCSSINS 7 

4580 INPUT 

4890 PRINT D 

4600 LET PP-U 

4610 OIM P| CO) 

4620 FOR I*U TO 

1530 P 

L640 P 

4660' INPUT'cO 

4860 IF C0>R-1 OR CO t 1 THEN OOTO 

4880 

4679 PRINT CO 

4688 LCT PIED-CHRI CO 

4690 LCT 0|aOl+(" ■ RNO C0<10)+5 
TR| C0 + ". '• 

4709 LCT PP-PP*4»IIH1B) 

4710 PRINT RT a,0;"3ERIE : ";0t( 
PP TO ) 

4720 NCXT I 

4760 LCT J-U 

4760 IF 0V128 TMCN QOTO 4798 _ 

4770 PRINT RT O.OiOliflT 0,0; "BBl 

4780 GOTO 4B60 

4J90 PRINT RT 0,0;Oi;AT 0.01 "BOB 

1880 PRINT RT 2i,0i"DCBLrT«(B ( <B 

i-OrFILCMCNTI QllUMl" 

4619 PRINT AT 1,0;0¥(J TO J+47B) 

4820 LCT J-J + 4* lINKCYt-'-e" AND J 

(LCN 01-479) -4* IINKeYI-"8" ANO J 

>4) 

4830 IF INKCY«""D" THEN OOTO 488 



3149 RCTU RN 

2190 KCH iBBAFFICHACC DESSINtJBB 

aa09 print RT ia,o;oi;0i;0i,oi; 

3218 PRINT AT 12,3; ■•NUMERO DU DE 

SSIN OCHANDC 7" 

2239 INPUT u*. 

3339 IF CODE UIOB OR CODE U|>37 

TMCN GOTO 2329 
3249 LCT U-UAL Ul 

2259 IF U>HEM OR Utl THEN GOTO 2 
210 

2235 CLS 

2260 IF U<A THEN GOTO 2310 

2270 PRINT RT 12,0; "IL N""Y A PR 

3 OC DE3SIN NUMERO : " ; AT 14,14;U 

2269 G03UB TT 

2290 POKE 1630B,46 

2300 GOTO 2330 

2310 GOSUB 1209 

2320 POKE 16508, U 

2330 RRNO USA 16637 



TMCN LCT PO-U 



CC- CC+CC 
3430 IF INKEYI 

3469 NCXT I 

3470 RCTUAN 

34B0 FOR I-l-CL AND L 10). TO LL- I 
L+LL-20) *(L+LL>29) 

3490 PRINT RT L + I-1+ IL + I(-1) , (C- 
2)#(C>9)+l;GI(I,l-iC-l) • (C<9) TO 

CC-IC+CC-32) »IC+CC>32) ) 
3399 IF INKCYI.-D" THEN LCT PO-U 
3310 NEXT I 



3530 IF INKCYI-"R M THEN GOTO 35: 

3849 GOSUB 3469 

3369 GOSUB 3430 

3660 GOTO 3530 

3B70 OOSUB N 

3880 PRINT "LC DCCOUPflGE CST-IL 

BON 7 10/N) " 

3390 PAINT AT O.OjAtUU) 

3600 LCT fl*. INKEYI 

"- 20* !R|- M N") +58* If 



4060 PRINT RT 21,0;0| 

4B69 OOSUB UL 

4882 PRINT Ol;0(t 

486B PRINT AT 16, U j "OCF ILEMENT ■ 

I AUTOMRTIOUC-JTRB 12 ; "B: MANUEL 

<CJ>MCNUJ" 
4870 LCT RI-INKCYl 
4080 IF AI-"M" THEN OOTO M 
4899 IF R|<»"1" ANO R|<>"8" TMCN 

GOTO 4878 
4989 IF Rl-'l" TMCN PRINT RT 19, 
11;" 

4918 IF Rl-'-a" TMCN PRINT AT 18, 
12; " TOUCHC B > RCTQUR" 



6i;;;pour 
ff 8t«0i " 



APPUYER SUR 



MQOC OCSS 



2G39 PRINT , , , , ii 

PPRE33I0N", , .TAB 9;"B >> D"UPL ICA 

TION",,,TflB 9;"i >) MENU" 

2340 LET RI-INKCYI 

2850 GOTO 2549+29* [RI-"3") +160* t 

RI«"D") -2 348»(fl| -' M") 

2S5B REM ■HMBi'-.uP^PESSiONaaifa 

2669 CLS 

2570 PRINT "NO. DU DESSlN fl SUPP 

RIMER : "; 

2560 input sup 

2599 if 3up-9 then goto 3500 

2600 if sup(1 or sup)a-1 then go 

TO 2680 

2610 PRINT SUP 

3630 PRI! 



UN INSTANT, 



JE TflflURILLC t . . 

3630 FOR I-SUP TO R-l 

3640 LET At II) afll (1 + 1) 

2650 LET Aid, 684 TO 688) 

NO I c 10) +STRI I 

3669 NCXT I 

2670 LET Rafl-1 

3680 PRINT ,.,,"IL Y A ",l 

CS3INS EN HEHOIRC" 



3810 OOTO 36 
f.-O-l 

3830 GOSUB N 

3630 PRINT " 
IN " 

3640 GOTO R 

3550 GOSUB N 

3669 PAINT " 

UUPEC HI)" 
3579 GOSUB TT 
3680 GOSUS I 
3690 PRINT 

CNU flUEC <H. 

3700 IF LC THEN LET L-LZ 
3710 IF LC THEN LCT C-CZ 
3720 LET PO-0 

6'" flNO L 
_."-LL) 
3740 LCT C-C+ (INKEY|«"e" ANO CO 
3) -(INKCYJ-"B" AND C>«-CC) 
3730 003UB 3438 
3768 IF PO THEN OOTO 3798 
3778 OOSUB 3*00 
3788 GOTO 3738 
3790 Q03U8 N 
3808 PRINT AT 81,0; " 
DC DCSSIN 
3818 LCT LZ-L 
3839 LET CZ-C 
3039 LET LC-U 



AE3SER SUR 

4929 PRINT 

UNE TOUCHC . . 

4938 IF R|-"a" TMCN OOTO 6000 

4940 GOSUB TT 

4950 FOR I-U TO D 

4960 POKE 16508, CODE PKI) 

4979 RRND USR 16837 

4989 IF INKCY|-"R'- TMCN QOTO 466 


4990 NCXT I 
4995 GOTO 4968 
6090 GOSUB TT 
6019 FOR I-U TO D 

5020 POKE 16808, COOC P. II) 

5839 ARNO USR 16837 

6840 IF INKEYI-"" TMCN GOTO 5949 

5039 IF INKEY|-"R" TMCN GOTO 406 

9 

3960 NEXT I 

3070 GOTO 501 

9900 REM BBB1 SAUUE0ARDE8 BBBBBi 



3730 LET L-L+ [INKEYI-" 
3) -7lNKCYI-"7" RND L>- 



9010 PRINT AT 31,0,01 
gaa)FA3T/L0flD: Q/N7 - 1 



9080 SflUE "SAM /BOUGH" 

9890 GOTO M 

9100 RRND USR 8283 

9110 RCM S92SRM/B0UGH 

9120 OOTOM 

9998 REM tpiSflUE r/L U.tt 

0919 CLEAR 

9Q20 RRND USR 82B3 

9930 RCM 592SAM/B0UG8 

9940 RUN 38 



; AT 21,0, "B 



2719 CLS 

2720 PRINT TAB 9 : " BBBJBJ BJBBJBj M 
2730 IF AcMCM TMEN KlQ 17BB 
2748 PRINT , ,"lMP03SIBLe , PLUS 
C PLRCC. 



u Fkm>i ... ,i,i 

2759 GOTO 2620 

2760 PRINT 
RECOPIER 



NO. OU DESSIN A 



"tUUI- 1CK , 

2770 INPUT DR 

2780 IF DA-0 THEN GOTO 2689 

2798 IF DR(1 OR 0R)A-1 THEN GOTO 



4818 REH BBBBSEOUCNTieLLEBBBBBBl 

4028 SLOU 

4039 CLS 

4040 PRINT "POUR FAIRC 0C3 0C3SI 
"S ANIMC3 



4060 LCT fll- INKEYI 

4870 IF AK>"1" RND fll< 



DEUX SUPER-CONCOURS PERMANENTS 

10000 francs de prix au MEILLEUR LOGICIEL du MOIS et un VOYAGE EN CALIFORNIE 

au meilleur logiciel du TRIMESTRE. 



Un concours de plus ! 
Rien de bien original dans celte 
formule, pourtant nous es- 
sayons de (aire quelque chose 
de different : nous organisons 
un concours permanent tous 
les mois et tous lea trimestres ! 
Et avec des prix dignes des pro- 
grammes que vous allez nous 
envoyer! 

De plus, ce seront les lecteurs 
euz-memes qui voteront pour 
leurs programmes preferes sur 
la grille recapitulative men- 
■MM 

Pas de Jury, pas de decision ar- 
bitrage. HEBOOGICIEL n'inter- 
venant que dans le cnoix des 
programmes qui devront etre 
ORIGlNAUXet FRANC AIS. Si 
votre programme n'est pas tout 
a fait au point, un de nos spe- 
cialistes vous dira comment 
I'ameliorer pour pouvoir nous le 
proposer a nouveau. 



Pour participer, il vous suffit de 
nous envoyer vos programmes 
accompagnes du bon de parti- 
cipation ainsi que toutesles ex- 
plications necessaires a I'utiii- 
sation de ce programme. 
Bonne chance! 



Reglement 

ART. 1 HEBDOGICIEL organise 
de facon mensuelle et Inmes- 
tnelle un concours dote de prix 
recompensant le meilleur logi- 
ciel du mois et du tnmestre 
ART. 2 : Ce concours est ouvert a 
tout auteur de logiciel quelque 
soit le materiel sur lequel il est 
realise. L'envoi d'un logiciel en 
K 7 ou disquette accompagne 
d'un bon de participation de- 
coupe dans HEBDOGICIEL ou 
envoye gratuitement sur de- 



mande par la redaction de notre 
journal constitue I'acte de can- 
didature 

ART 3 La redaction d'HEBDO- 
GICIEL se reserve le droit de 
selectionner sur la base de la 
qualite et de lorigmalite les logi- 
ciels qui sont publics dans le 
journal 

ART. 4 Ce sont les lecteurs qui. 
par leur vote, determinent les 
meilleurs logioels mensuel et 
trimestriel 

ART. 5: Le prix alloue pour le 
concours mensuel sera remisau 
plus tard un mois apres la clo- 
ture du concours mensuel. 
ART. 6: Le prix alloue pour le 
concours trimestriel sera remis 
au plus tard un mois apres la clo- 
ture du concours trimestriel 
ART. 7: Le present reglement a 
ete depose chez Maitre Jauna- 
tre.t.ruedesHalles 75001 Pans 
ART. 8: HEBDOGICIEL se reser- 



ve le droit d'mterrompre a tout 
moment le present concours en 
en avisant les lecteurs un mois 
avant 

ART 9 La participation au con- 
cours entraine lacceptation par 
les concurrents du present re- 
glement 

HEBDOGICIEL: 27. rue du Gal 
FOY - 75008 PARIS 

Sera declare gagnant le pro- 
gramme qui aura obtenu le plus 
fort pourcentage de vote par 
rapport a la totalite des pro- 
grammes recus pour un meme 
ordinateur. 

Ainsi, pas de favoritisme pour 
les ordinateurs plus puissants 
ou tres diffuses. 



BON DE PARTICIPATION 



Nom 

Prenom . 

Age : Profession 

Adresse : 

N 5 telephone : 

Nom du programme : 

Nom du materiel utilise 

declare etre lauteur de ce programme qui nest m une imitation ni un© 
copie dun programme existant Ce programme reste ma propnete et 
j'autonse HEBDOGICIEL ale pubirer La remuneration pour les pages 
publiees sera de 1000 francs par page (un programme n'occupant pas 
une page entiere sera remunere au prorata de la surface occupee) 

Signature obligatoire: 

(signature des parents pour les mineurs). 

Le programme doit etre expedie Sur support magnotique (cassette 0u 
disquette) accompagne d'un descnptif detaille du materiel utilise, 
d'une notice d'utilisation du prog ramme Les supports deTprogram- 
mes publies sont conserves , noubtiez done pas den faire une copie 



RECOMMANDATIONS AUX LEC- 
TEURS QUI SOUHAITENT FAIRE 
PUBUER UN PROGRAMME : 

• Envoyez vos supports, mode 
d'emploi. listings et bon de parti- 
cipation dans une meme enve- 
loppe. 

Vous pouvez nous envoyer plu- 
sieurs programmes sur un meme 
support en I'indiquant sur votre 
Bon de Participation 

• N'oubliez pas et ceci est tres 
Important, d'inscrire sur vos sup- . 
ports vot/e nom, le nom du pro- 
gramme et le materiel utilise. 
Notez dans les premieres lignes 
de votre programme, sous forme 
de REM. votre nom, lenom du pro- 
gramme et le materiel auquel il est 



destine Nous pourrons ainsi re- 
perer facilement les listings, une 
fois sorlis de rimprimante. 

• Dupliquez plusieurs fois sur la 
cassette et a des niveaux d'enre- 
gistrement differents votre pro- 
gramme Nous aurons plus de 
chance d'arriver a le charger si les 
magnetophones ne sont pas tout 
a fait compatibles. 

• En ce qui conceme les bonsde 
participation, mettez votre adres- 
se com p lete et votre numero de 
telephone (si vous en avez un). 

• Pour tout envoi tel que "petites 
annonces", "abonnement" et 
"programmes" specifiez sur vos 
enveloppes I'objet de votre cour- 
rier. 



Ne nous envoyez plus d'envelop- 
pes ttmbrees, mettez simplement 
les timbres joints a votre envoi. 

• Expliquez les particulates de 
votre ordinateur et le moyen 
d'adapter votre programme a 
d'autres ordinateurs 

• Vu le nombre important de pro- 
grammes similaires que nous re- 
cevons. evitez de nous envoyez 
les jeux suivants : BIORYTHMES. 
MASTERMIND, PENDU. TOUR DE 
HANOI. CALENDRIER. BATAILLE 
NAVALE. POKER. JACKPOT 
BOWLING. BLACK JACK. LABY- 
RINTHE, MEMORY SIMON, 421. 
OTHELLO, SOLITAIRE. LOTO 



LA REGLE A CALCUL RE- 
COMPENSE LES MEILLEURS 
LOGICIELS EN OFFRANT A 
CHACUN DES PREMIERS 
DANS LEUR CATEGORIE UN 
OUVRAGE A CHOISIR DANS 
SON RAYON LIBRAIRIE (EDI- 
TEURS : BORDAS, DUNOD, 
EYROLLES, MASSON, NA- 
THAN, PSI, SHIFT, SY8EX). 



SOUIRELLE RECOMPENSE LE 
MEILLEUR LOGICIEL OU MOIS 
PAR 2 CASSETTES A CHOtSIR 
DANS SA LOGITHEQUE. 



Les editions du CAGIRE oftrent 
au meilleur logiciel du mois sur 
HP 41, leur livre "autour de la bou- 
cle"deJanick fAILLANDlER. 



ISOPICTOR 



Ce programme est inspire du eelebre PICTOR de VI Fl NA- 
THAN. II vous proposera d'autres possibilites (symetrie 
centrale, axiale, parallele etc.) 







Marc RAYNAL 


Vous selectionnez les fonctions grace au crayon optique. 


PAR : droites paralleles 


T 


Translation 


SA : Symetrie axiale 


SC 


symetrie centrale 


U : ligne brisee 


POL 


polygone 


BOX : rectangle 


BoxF 


rectangle plein 


CF : Couleur du fond 


CC 


couleur du cadre 


EFF : effacement 


CO 


crayon optique 


: menu principal 




choix d'une couleur 


Bonne composition ! 




^.^ts-l 


1 CONSOLE0,24:CLS:COTO 1696 




TOi 


a pen 




1 ^M^ 


39 PEM •••••STYLO 0PTIQUE«i 


100 




3i rex 






35 GOSUB I499iCLS!PeiNT"0K' 


rrOP K-e 


3 2 


001 next k 






49 INPUTPEN klZ,ft% 






43 ir xiMi op tri»<* them play*t2li2C 


300 


04LA03DO'tCOTQ 49 






39 PSET VAV'.,<V'.1,\ 






69 IMPEM XI, VI 






ss C-I31C0 to 2000 






39 X3V.»'XI*-X1>'2 






99 mcmtrt%*vtys2 






199 LINC<X1%/Ylf»-0(2!C,Y2!!E) 


, J1/U-Z3'' 


iyi __^**^to i * 



119 GOTO 60 

195 REM 

299 PER ••••• PAPALLELE ••••• 

£03 REX 

219 0H8RE-I 

220 GOTO 1199 
399 REN 

49a REM •••••'wny|,cfji n ••••• 
493 PEN 

423 PRIMT CHR*'7y 

430 COSUB 730iCLSiPPINT*O)"!fOP K-8 TO 2 

00i NEXT K. 

469 C0SU8 1408lCLSiPBINT*OK*'FOP f-0 TO 

2001 NEXT K 

479 INPUTPEN Xl*C,Yt*i 

474 IF X1>.<0 OP Y1V0 THEN PLAY' T2L 1 203D 

004LA03DO*IGOTO 47B 

473 IT YI5l>i73 THEN PLAY '03T2L12D002L AO 

3DO*lC0T0 479 

489 02— I'AHB2-YlV,-A26X|ii 

4B4 X5-<82-ei)'<0i-fi2>'Y3-P.HX3*fillX2V..X 

li*2»CINT<X3-XU»lY2!:-rU*2»ClNTrr3-Yr<) 

406 \T Y2*>173 OP K2%>31f OR X25s<8 OR Y2 

X<6 THEN PLAY*03T2LI2DOO2LA03D0'iC0T0 47 



,Y2>.>, UPSET (XU 



MX), I 



480 PSET (X21 

498 INPEN XI, Yl 

4M IF Yl>173 THEN PLAY '03T2L 120002LIJ03 

DO'iCOTO <'«, 

",(•■ O-31C0T0 2000 

338 XJX-<Xn*Xl>/2 

54« Y3«-<YU»Y1)/Z 

7tf 'XXX COOWOXNEES XXXX 




70S 02— l- , AHB2-Y3^-02«X3V. 

718 X3-<B2-8!>^(fll-A2):Y3-Al«X3»Bl:X4*/..X 

35:*2«CINT<X3-X3X)!Y45t-Y3X*2«CINT(Y5-Y3'!) 

712 IF Y4JCM73 OR X4V.)3I9 OR X4X<0 OP Y4 
>.<• THEN PLAY*03T2LI2D002LA03DO'!COTO 49 
t 

713 ON ERROR GOTO 74e 

728 LINE (X1^,YU)-'X3"<,Y35:),I'LINE <X2i 

,Y2X)-<X45t,Y4--:>,IlXtX-X3'/.lYI%-Y3XlX2*-:-X4 

XtYZX-14-K 

723 on ERROR COTO 

738 COTO 49t 

748 PLAY "03T2L120002LiH03Dr-j-:PESUnE 490 

73« 'XXX S.P.DEF.AXE DE SYN. XXX 

753 C0XS0LE22,24!CLS!F0P !■! TO 200SNEXT 

IiLOCATE0,22iPPlNT"DONNEr 2 POINTS AVEC 

LE STYLO OPTIOUE-.'POUR CEFINIR UN AXE 
DE SYNETRIE. *l INPUTPEN X2, Y2t PRINTCHR* ( 7 
)iFO0 I-I TO 280'NEXT IMNPUTPEN X3.Y3IP 
RINTCHR«<7) 
757 IF X2<0 Oft Y2<0 t* X3<8 OR Y3<0 THEN 

PLAY*T2L12030004LA03DO':C0T0 733 
768 IFX3-X2 THEN X3-X3*IUF Y3-Y2 THEN Y 
3-Y3*l 

778 «I-<Y3-Y2)/'X3-X2)iBl-Y2-Al»X2 
738 RETURN 

008 REH •••••SYH'P0INr««»«« 
801 REX 

823 PRINT CHR«<7) 

830 CONSOLE22 f 24!CLS:F0» K-l TO 200JNEXT 
KtL0CATE8,22iPPINTT,0HNEZ [ POINT AVEC L 
t STYLO OPTIQUE*, *P0UR DEF1NIP UN CENTRE 

DE SYMETRIE. "MNPUTPEN X0, Y0: PRI NTCHPK 
7)iF0R I-I TO 280INEXT I 

833 IF Y0>173 OR X9<8 OR Y9<0 THEN PLAY" 
T2L1203D004LA0300':r,OTO 839 
349 BOXF (X0-2,Y0-2>-<X0>2,Y0*2),9 
869 COSUB 1400lCLSiPRINT'O»;':FOR X-0 TO 
280'NEXT K 
379 INPUTPEN XU^Ylf 

871 IF Xl'/.<0 OR tlXKt OP YIOI73 OR X1X> 
319 THEN PLAY *03T2L I 2D002LA03D0* : COTO 8 
70 

872 X2-X8* CINT'Xe-Xr-tJlYZ-YB'CINKYe-Yl 

873 IF Y2/I73 OR X2>319 OR X2<8 OR Y2<0 
OR X1X>3I9 OR YT-IH75 OP XI*<« OP Yiv.te 
THEN PLAY*O3T2LI2DCiO^LA03[/0-it0T0 878 
878 PSET <XU,YI^>, UPSET (X2,Y2),I 

" " INPEN XI, Yl 
993 IF Yl > 175 THEN PLAY "03T2L 12D002LA03 
DO-lCOTO 890 

IF XK0 OR Yl<9 THEN PLAY" T2L 1204SI0 
5PEO4SI-<C0NS0LE22.£4:r,L'):LOCArC33.22>PR 
INTV>' + - > ■i80Xr3«l,183>-<.328.199>i80X 
'280, ia3j-(299,I99> 

919 IFX1'0 OP Yl THEN PEN01 t 391 , 183 >-' 
329, 1 99 J, 1 1 '289, 185>-<299, I99>iOHPEN r,0T 

966, 1699IPLAYT2LI2D0LAD0-1C0T0 9«fl 
938 X3 - '."Xl^»Xl)/2 

940 m><Yl**¥l>/2 

1010 X4-X0« CINT'X0-X3^Jl Y4-Y0>CIN7'Y9-Y 

I9J2 IF Y4H75 OR X4>319 OR X4<0 OP Y4<8 
OR X3^>319 OR Y3^/173 OR X3'',<9 OR Y3X<0 
THEN PLAY-03T2LI2D002LA0300*"C0TO 698 

1913 ON ERROR COTO 1048 

1920 LINE </.\:,<V.- -:■:!'.;, V3^.J,HLINE 'X2 
!>-rX4,Y4),ItXlv,.X3^.iYl!:-Y3^iX2-X4:Y2- 

1023 ON ERROR COTO 

1030 COTO 990 

1040 PLAY ■03I2L12fj002L«01DO-lPESUnE 890 

1 10ft REN •■••• TRANSLATION ••••• 

1101 PEN 

1123 PRINT CHR»f 7) 

1130 C0N30LE22,24iCLfllF0P K- I TO 2BBINEX 
TITILOCATE0,22iPPiNT-DONME; 2 POINTS AVEC 
LE STYLO 0PT!0UE-,"P0UR DEFINIR UN VECT 



EUR DE TRANSLATION.*! INPUTPEN X7,Y7:PRIN 
TCHR»(7)tF0R !■! TO 2061NEXT H INPUTPEN 
X8, Y8I PR] NIC HP 1 (7)1 X8-X8-X7! YB"YB-Y7 
1148 IF X7<0 OR Y7<8 OR X0<0 OR Y8<0 THE 
N PLAY'T2LI203D004LA03DO-:C0TO 1138 
1169 C0SU8 1406iCLSiPPINT-OK'lFOR K-8 TO 
2081 NEXT K 
1178 INPUTPEN XI*, Yl* 

1174 IF XIV.<8 OP Yl-«8 THEN PLAY*T2L1203 
D004LA03D0-IC0T0 1178 

1175 IT Yl*>173 THEN PLAY *03T2l. 12D002LA 
O3D0'lGOTO 1179 

1176 X2-X8*X1V.1Y2-Y8*YU 

1178 IF Y2>175 OR X2>319 OR Yn>173 OR X 
l'-:)319 OR Y2<0 OR X2<8 OR YU<0 OR xn<0 

THEN PLAY*03T2L12D002LA03DO-:COT0 1178 
1100 PSET (XIV.,Yl*),ItPSET (X2,Y2>,I 
1190 INPEN XI, Yl 

1193 IF Yl>]73 THEN PLAY *03T2L 12DO02LA0 
3D0-IG0TQ 1190 
1208 D-3IC0T0 2800 
1230 X3*-<XU*XI>'2 
1248 Y3>.-<Yl*»Yl)/2 
1318 X4-Xe*X3XiY4-Ye*Y3* 

1312 IF Y4>173 OR X4>319 OR Y3>.> 1 75 OR X 
3'-c>319 OR Y4<8 OR X4<8 OR Y3'«8 OR X3*<0 

THEN PLAY'03T2L12D002LA03DO*1COTO 1198 
1315 ON ERROP COTO 1340: If 0N8RE-1 THEN 
LIXE(X33:,Y3'!)-<X4,Y4),I!C0T0 1325 
1320 LINE (X1V.,Y1*>-(X3>., Y3 - ^), ULINE <X2 
,Y2)-(X4,Y4>, IIXtX*XntYt*P B Y9S»X8-'X4IYiT*' 
Y4 

1325 ON ERROR GOTO 8 
1338 COTO 1198 

1348 PLAY VJ3T2L12(,flfJ2Ln03Drj-:PESU*IE 119 
• 

1408 PEH ••••• COULEUPS ••••• 
1401 REM 

1410 PLAY'T2L12O4SIO3RE04SfiC0NS0LE22,2 
4ICLSILOCATE0,221C— liFOR 1-0 TO 173 STE 
P 25<C«C»liBOXF(L,176)-(20*L,l04),CiBOXr 
L,185>-(20*L,I99>'NEXTL 

1428 C--HF0P L-0 TO 175 STEP 23:C-C*HP 
EN Cl<L,I93)-<28*L,I99)iNEXT LiONPEN COT 
1438,1433,1446,1445,1450,1435,1460,146 
3lPLAY'T2LI2D0LAD0"iCOT0 1420 
1438 I-0IRETURN 
1435 1-1 (RETURN 
1448 I-2IRETURN 
1443 I-3'RETURH 
1450 l-4tRETURN 
1433 I-51RETURN 
1460 I-61PETURN 
1463 I>7rRETURN 
1688 REN ••••• NENU ■•■•• 
1681 REX 
1603 ONBRE-0 

1610 PLAVT2L1204SIO3PEO4S1 * ( C 0NS0LC22, 2 
41C0LOR ,7iCLSlLOCATE0,22iPPINT*PAR T SA 

SC POL LI BOXBOXFCF CC EFF CO'iFOR L- 
8 TO 300 STEP 23i8OX(L,103)-<20»L,199)iN 



ANCLE.'! INPUTPEN ) 

K-I TO 2081NEXT Kl 

R»<7> 

1712 IF X2<6 OR Y2<8 OR X3f0 OR Y3<8 THE 

N PLAY'T2LI203D004LA03D0-tC0T0 1718 

1715 IF F-l THEN BOX (X2, Y2 )-< X3, Y3 ) , I if 

-0ICOTO 1680 

1720 B0XF<X2,Y2)-(X3,Y3),HC0T0 1688 

1730 F"]tC0T01769 

1780 REN 

1000 PEN ••••• CERCLE ■•■«■ 

1881 REX 

1B10 GOSUB 1499iPR]NTCHR*<7) 

1820 CONS0LC22,24lCLSiFOP K-l TO 200INEX 

T KILOCATE0.22IPRINT-DONNE2 2 POINTS AVE 

C LE STYLO OPTIQUE-, "POUR DtriNIP UN CER 

CLE. -t INPUTPEN X2,Y2lPRlNTCHR«C7)lF0R X- 

1 TO 200INEXT Kt INPUTPEN X3, Y3>PR INTCHR* 



EXTL 

1628 c— nroR L-e to 175 step 23ic-c*hp 

EN CJ<L,185)-<26*L, I99XNEXT LtONPEN GOT 

208, I 100,408,960, 1900, 1910, 1000, 1730 

1625 C--HF0R L-286 TO 300 3TEP 25iC-C*l 

■ PEN CKL,183)-''20H , I99)INEXT LiONPEN G 

0T0 178«, 1670,1673,7,38!PLAY-T2LI2OOLAOO 

•t&OTO 1620 

1670 GOSUA 1406iCON5OLC0,2! iSCRFEN , 1 1 CO 

TO 1688 

1673 COMJB 1466ISCREEN ,,IlCOTO160M 

1680 REN 

178* REN ••••• RECTANGLE ••••• 

1761 REN 

J783 COSUB 1400iPRIHTCH««<7> 

1718 C0NSOLE22,24tCLSirOR K-l TO 200INEX 

T KiLOCATE0,22lPRINT-DONNEZ 2 POINTS AVE 

C LE STYLO OPTIQUE', 'POUR DEriNIP UN PET 



(7) 

1823 IF X2<6 OR Y2<0 OR X3<0 OR Y3<0 THE 

N PLAY'T2L12030004LA03DO'lCOTO 1826 

1826 PSET <X3,Y3),I 

1827 PSET <X2,Y2),I 

1830 R-INT<SQR(CX3-X2)-2»<Y3-Y2>-2)> 

1833 PSET(R»X2,Y2>. I 

1840 FOR TETA-8 TO 213. 14139 STEP 6.83iX 

-R»C0S(TETA>.X2tY<R»SIN(IETA)»Y2 

1838 1FX<0ORX>319 ORY<0 ORY) 175 THEN HC- 

HC0T0 1870 

1968 ir HC-1 THEN HC-81PSET <X,Y>,HC0T0 

1870 
1863 l ]-[■■■-. . I 
1870 NEXT TCTA1COTOI600 

1960 REN ••••• LINE-POLYCONE ••••• 

1961 REX 
1965 POL-1 

1910 COSUB 1400ICLSIPRINT CHR« ( 7 ) t PRINT ' 

OK'MFOR K-8 TO 288>NEXT K 

[920 INPUTPEN X0,YeiX3-X8fY3-YeiPRlNT CH 

R»<7)lF0R K-l TO200INEXT K 

1925 IF X6<8 OR Y0<O THEN PLAY' T2L 1203DO 

041 A03DO'lCOTn 19PA 

1938 INPUTPEN X2,Y2iPRINT CHR»(7)irOR X- 

1 TO280INEXT ITiCONSOLE2a.24fCLStLOCATE30 

,22iPRINT'<>*lB0X(36],193)-<328, 199) 

1932 IT X2<0 OR Y2(8 THEN PLAY'T2LI203t>0 
(MLAO3DO-IG0TO 1938 

1933 IF Y2M75 OR X2J-3I5 THEN IF POL-1 
THEN LINE<X0,Y8)-fX3,Y3),HPOL-0lCOTO 16 
68IELSE GOTO 1606 

1936 OX ERROR GOTO 1938 

1946 LINE(X3,Y3)-<X2,Y2), 1 1 X3-X2I Y3- Y2I 

N ERPOP GOTO 01COTO 1930 

1958 PLAY •O3TeLI2D0O2LAO3D0*iRESUNE 193, 

• 

2888 BEN ••••• NENU ANNEXE ■■■•• 

?081 BEN 

2863 IT XK8 OR YK0 THEN PL AY * T2L 1204S I 

O3REO43I'iCON30l E22, i'4 i CL 51 L0CATE35.22I f 

RINT'O-*- > ■I8OX(301,185)-<320,199>IBO 

X(288,103)-(299, 199) 

2016 IFXK0 OR YK0 THEN PEN8I ( 381 , I 03 ( - 

(326, 199), 11(288, 185)-<299, 199)tONREX CO 

TO 2638, 1680iPLAY-T.?Ll?DOl.ADO-^COTQ 2866 

2026 ON D COTO 1,2,336,4,1238,6,7,0,9,10 

,11,12,66 

2636 ON D COTO I ,2,468, 4, 1 168,6, /. 8, 9, 10 

,11,12,36 

48001 NOTOR ON 

46803 FOR I-I TO 1888 

46611 NEXT I 

4MI3 FOR F-l TO 4 

40021! HOTOP ON ITORC-I TO100INEXT G 
48023 SAVEM30PICT0.R' 
46630 NEXT F 



BATAILLE NUCLEAIRE 



Ce jeu ressemble un peu a la bataille navale. mais il taut de- 

truire ici des silos de missiles et la reponse de la machine 

est differente de "TOUCHE" ou "RATE"... 

Le mode d'emploi est clairement explique dans le debut 

du programme 

Le cdte strategique et la reflexion intense demande pour 

deduire la position des missiles avec les indications de 

I'ordinateur en font un jeu passionnant. 

Jean Yves POCHEZ 



'^SKT?^ 




HOME i PRINT-: MIAB 12l PRINT 
"LA BATAILLE NUCLEAIRE" 

MTAB IB: PRINT " ' 

PRINT : MTAB Et: FRINT "CE JE 
U A POUR BUT DC DETRUIRE 6": 

PRINT : PRINT "BASES LANCE- 
MISSILES. CES BASES 50NT": PRINT 
I PRINT "0ISS1MULEES DANS UN 

TERRITOIRE SYMB0LI5E": PRINT 
"PAR UNE GRILLE 10X1OIELLES 
SONT SITUEE3": PRINT : PRINT 
"DANS DES CASES DIFFERENTES 



'■- 


PRINT | MTAB 9: PRINT "LE JO 




UEUR LARGUE UN OBUS SUR UNE" 




1 PRINT "CASE DE SON CHOI* D 




ESIGNEE PAR S£S COOR": PRINT 




( PRINT "DONN££S<X,Y>. XiCOL 




ONNE , V : L I ONE . ■ 


220 


OOSUB 6 30 


Z2* 


HOME J PRINT : PRINT : MTAB 

5 

PRINT "L'APPLE II INDIOUE AL 


226 




ORS S'lLVH EU" 


?7fl 


PRINT - OU NON DESTRUCTION D 




•UNE BASE. ENSUITE- 


230 


PRINT 1 PRINT - IL INDIQUE L 




E NOHBRE DE BASES RESTANTE5" 


232 


PRINT " RESPECT IVEMENT AU NO 




RD, AU SUD, A L"EST" 


234 


PRINT " ET A L-0UE5T. LES BA 




SES EVENTUELLES. DE" 


23d 


PRINT " LA HEME LIGNE QUE LA 




CASE ATTAQUEE, NE" 


738 


PRINT : PRINT - SONT PAS SIG 




NALEES ; IL EN EST DE HEME" 


240 


PRINT : PRINT ■ POUR LES BA5 




ES DE LA MEhE COLONNE." 


2*t 


GOSUB 630 


zeo 


HOKE i PRINT i PRINT : HTAB 
PRINT -VOUS POUVEZ, AU HOMEN 


3S9 




T D - UN ESSAI, " 


290 


PRINT "REPERER PAR DES POINT 



S LES CA5ES NE POU-" 

PRINT "VANT PAS CONTENIR DE 

BASES. '■ 

PRINT 1 PRINT TA8< 6} "POUR 

LES CASES O'UNE LIGNE, TAPER 



SOS 


PRINT "5UIVI DU NUMERO DE LA 




LIGNEi POUR CELLES" 


1.IO 


PRINT "D'UNE COLONNE , TAPER 




C SUIVI DE SON NU-" 


SI 2 


PRINT "flEPO 


51 fl 


VTAB 20: HTAB IS: PRINT "SON 




COURAGE (II" 


320 


GOSUB 630 


360 










2, 12, 12, 12, 12,6,0,34,34,33.3 




6,44,34,77,36,43,62,46,62,34 




,3B, 63, 63, 76, 37,63,0 


370 


RESTORE i FDR I - TO 41 : READ 




A: POKE 8112 * I, A: NEXT 


3SO 


PO^E 232,176: POKE 233, 3Ii POKE 




1 13, 176: POKE 116,31 


390 


ROT- Oi SCALE- liX - PRE (0 


«on 


HGR : TEXT t HOME : CALL 624 




SO 


4IO 


FOR I - 1 TO 6 


430 


2 - RND <1) 1 1* - STR* <.l> :F 




m 


430 


X<I> - VAL < HID* <Z«,4, J> 1 : 




VII) - VAL < HID* <Z»,6, 1 1 ) 



APPLET 



460 


NEXT J 


470 


IF P - 1 THEN 1 - I - 1 








VTAB 12: HTAB 5: PRINT "JE D 




ETERM1NE LA POSITION DES" BAS 




E5" 








HPLOT 5.25 TO 113,25: HPLOT 




TO 113,133: HPLOT TO 5.133 




: HPLOT TO 3,25: HPLOT TO 




23,43: HPLOT 22,23 TO 22,133 




i HPLOT 3,42 TO 1 13.42 




FOR I - TO 9l HPLOT 23 * 9. 




» 1,25 TO 23 * " 1,133: NEXT 




FOR I - TO 4: HPLOT 5.43 * 




9 # I TO 113.43 * 9 • I: NEXT 




I - 17:J - 30: GOSUB 1O10 




I - lOiJ - 39: GOSUB 1015 




FOR K - TO 9: I - 2B + 9 • 




>'-J - 31: GOSUB 990: NEXT 




FDR K - TO 9i I - IOiJ - 48 




• 9 * Ki GOSUB 990: NEXT 


390 


FOR I - TO 42: HPLQT 123,1 




3 + 3 • I: NEXT 


393 


R - 0: GOSUB 600: GOTO 640 



HPLOT [33 + R,S TO 133 * R, 1 
SO: FOR I - O TO 4: HPLOT 13 
7 * R * 10 » 1,3 TO 137 ♦ R * 
lO • I, ISO: NEXT 
HPLOT 133 • R.I50 TO 197 . R 
, 130 
J -9:1 - 140 * R: GOSUB 1010 
: I - 147 ♦ R: GOSUB 1040:1 - 
132 + R: GOSUB 1015: I - 162 + 
Ri GOSUB 1020:1 - 172 + R: GOSUB 
1025: I - 1B2 * Ri GOSUB 1030 
:I - 192 * R: GOSUB 1033: RETURN 



630 


VTAB 24: PRINT "APPUVER SUR 




RETURN POUR CONTINUER, . . " i 


635 


GET A*: IF ASC (A«) < > 13 




THEN A - A * 1 : GOTO 635 


636 


RETURN 


640 


POKE - 16303,0: POfE - 162 




97,0: POKE - 16304,0 


660 




700 


VTAB 21: CALL - 936: VTAB 2 




2: PRINT TAB( 61 "VOTRE ESSA 


70S 


GET X»: IF ASC <X«) < 32 THEN 




70S 




PRINT X*S : IF X* - "L" THEN 




PT - 1: GOTO 725 


710 


IF X» - "C" THEN PT - 2i GOTO 




723 


713 


X - ASC <X*>: IF X ' 4B OR X 




> 57 THEN PRINT CHR* <B) ! 




: GOTO 705 


720 


PT - 3i PRINT "."HX - VAL < 



GET Y»; PRINT Y»I:Y - ASC t 
Y*t : IF Y < > B THEN 730 
IF PT - 3 THEN PRINT CHR* 
<BJ ; 

GOTO 705 

IF Y < 48 OR Y > 37 THEN PRINT 
CHR« (8) I : GOTO 725 
Y - VAL (Y*> 
GET Z»! Z - ASC <Z*>! IF Z - 
B THEN PRINT Z*l : GOTO 723 
IF I < > 13 THEN 740 



I - 24 + 9 • X:J - 44 . 9 • Y 
: FOR K - 1 TO. Ill XDRAW I AT 
1,J: FOR L - 1 TO lOOl NEXT 

L: NEXT f; 

VTAB 21 i CALL - 936 

IF A < & THEN GOTO 1 I 10 

VTAB 23: HTAB 15: PPINT "H A 

fl O U E": FOR I - 1 TO 250: 

NEXT I 



130 ■ 



GOSUB 990 

P:K - Xj GOSUB 990: 
- P: GOSUB 1040: I - 
K » V: GOSUB 990 
■ P:K - N: GOSUB 990: 
* P:K =• S: GOSUB 990 



972 IF C - 15 THEN GOSUB 10B0 
974 IF C - 30 THEN GOTO 1520 
976 IF B - THEN GOTO 1210 
980 GOTO 700 
990 ONK • I GOTO 1000, 1001 , 1002 

, 10O3. 10O4, 1005, 1O06, 1007,10 

08. 1009 

1000 HPLOT I * 2, J - 2 TO I » 2, 
J * 2: HPLOT I . l.J ♦ 3 TO 

1 - 1, J * 3: HPLOT I - 2, J + 

2 TO I - 2, J - 2: HPLOT I - 
l.J - 3 TO I * l.J - 3: HPLOT 
I - l.J ♦ 2: HPLOT I, J: HPLOT 
I * 1, J - 1: RETURN 

1001 HPLOT I - l.J - 2: HPLOT I, 
J - 3 TO l.J * 3: HPLDT I - 
l.J * 3 TO I * 1,J •■ 3: RETURN 

1002 HPLOT I - l.J - 2: HPLOT I, 

J - 3: HPLOT I * l.J - 3: HPLOT 

I + 2, J - 2: HPLOT I * 2. J - 

It HPLOT I ♦ l.J: HPLOT I, J + 

li HPLOT I - 1,J ♦ 2: HPLOT 

I - l.J + 3 TO I * 2.J ♦ 3: RETURN 

1003 HPLOT I - l.J - 3 TO I ♦ 2, " 

J - 3t HPLOT I * 2. J - 2: HPLOT 
I * l.J - 1: HPLOT I, J: HPLOT 



1,J: 



2, J ' 



■ 2: HPLOT I * l.J + 
3: HPLDT l.J + 3: HPLOT I - 
l.J * 2: RETURN 

i HPLOT I - 2, J: HPLOT I - 1, 
J - 1: HPLOT I, J - 2: HPLOT 
I » l.J - 3 TO 1 - l.J * 3: HPLOT 
I - 2, J + 1 TO I + 2, J * Il RETURN 

1 HPLOT I ♦ 2, J - 3 TO I - 1, 
J - 3: HPLOT TO I - l.J - I 
: HPLOT TO I • l.J - I: HPLOT 
I * 2. J TO I * 2. J * 2: HPLOT 
I ♦ l.J + 3: HPLOT l.J *■ 3: HPLOT 
I - l.J » 2i RETURN 

■ HPLOT I * 2, J- 3: HPLOT I * 
l.J - 3i HPLOT l.J - 2: HPLOT 
I - l.J - I TO I - 1, J • 2: HPLOT 
I, J * 3i HPLOT I «■ I, J * 3: HPLOT 
I ♦ 2, J ♦ 2: HPLOT I * 2. J * 
I: HPLOT I » l.J: HPLOT l.J: 
RETURN 

' HPLOT I - 2, J --3-T0 I * 2, 
J - 3i HPLOT I ♦ 2, J - 2i HPLOT 
I » l.J - 1: HPLOT l.J: HPLOT 
I - l.J + 1 TO I - 1 ,J * 3: RETURN 

I HPLOT I -l.J -3 TO 1+1, 
J - 3i HPLOT I + 2. J - 2i HPLDT 
I + 2. J - 1: HPLOT I ' l.J TO 
I - l.J: HPLOT I - 2. J ♦ 1: HPLOT 
I - 2, J + 2: HPLOT I - l.J * 
3 TO I + l.J * 3: HPLOT I * 
2, J + 2i MPLOT I + 2, J * It HPLDT 
I - 2, J - 1: HPLOT I - 2, J - 
2: RETURN 

t HPLOT I-1.J-3T0I+1. 
J - 3j HPLOT I + 2, J - 2 TO 
I + 2. J * 1 : HPLOT I . l.J + 
2: HPLOT l.J + 3 TO I - 2, J + 
3: HPLOT I • 1, J TO I - 1 ,.T: 



HPLOT 1 - 2, J - Il **: 
?..! - ?! RETURN 

HPioi i - 2. j - -i Mn.cn i 

J. <*LOT I - J.J - I I t*T.OT 

I.Jl MFLOT I - l.J • Il 

,J • 2l "PLfJI I • 2. J • 

31 HPLOT I - 2. J * 3l MTLOr 

l.J • 2; >*T.UI [ - l.J • 

DT I • l.J - 1 1 HPLOT 

I • :. J 2i MFLtn i ■ 

3: FtT'jf'l 

1013 HPLOT 1 ■ J..' Ii HPLOT 

1.1 - .*: HPL01 1 - l.J l: MT-LOT 

I • 2.J - -.- HfLOT ! - , 
2: HPLOT I * 1, J - I: t#l_DT 
l.J TO I, J • 3: RETURN 

1020 HFLOI •'! I - 2. 

J • 3: "PLOT I l.J - It HPLOT 

l.J: HFLOT I * l.J • I: MPLOT 

I • 2. J - 7 TO : • 2. J - 3: RETURN 

102S MPLOT I - l.J - .' TO I * I. 

J - 3: HPL01 I • 2. J - 2: HPLOT 
i ..I-.": HPL01 1 - 2, J - 

1: HPLOT I - l.J TO I • l.J: 

HPLOT I * 2, J + II HPLOT I * 
2, J + 2: MPLOT I - l.J * 3 TO 
I - l.J * 3: MPLOT I - ..J - 
.: RETURN 

1030 HFLOT I • 2.J - 3 TO I - 2. 
J - 3t HPLOT TO 1 - 2. J • r 
: HPLOT TO I + 2. J • 3: HPLOT 
1 - 2. J TO l.J: RETURN 

1035 HPLDT I - l.J - 3 TO I • 1. 
J - 3: HPLOT I • 2.J - 2 TO 
I * 2. J * 2: HPLOT I « l.J * 
3 TO I - 1.J * 3: HPLOT I - 
2, J » 2 TO 1 - 2, J - 2: RETURN 



040 H* 
2: 

050 FC 

Vf 

I ' 

O60 FI 

I • 
OBO R ■ 



HPLOl 



■ - ... •(. 'V: : 
Y«>lJ - 44 + 
J ♦ 4: NEXT 

! - O TO 91 1 



PRINT 
VTAB : 
PRINT 



CHR* (71 
3: INVERSE 
"T U C H I 



I DRAM 2 AT 1 

300: NEXT I 
p GOTO 950 



VTAB : 



CALL 



230 VTAB 23: HTAB 13: INVERSE : 

PRINT "G A G N E": NORMAL 
240 FOR 1 " I TO 2O00: NEXT 
230 TEXT : HOME I VTAB 10 
260 HTAB lOi PRINT "IL VOUS A F 

ALLU "ICI" TIRS" 
270 FRINT : HTAB 3: PRINT "POUR 
DETRUIRE LES FORCES ENNEM1E 

S" 
273 PRINT 1 HTAB IO 
2BO IF C < "11 THEN PRINT "C'ES 

T UN EXCELLENT SCORE": GOTO 

1330 
290 IF C < 16 THEN PRINT "C'ES 

I UN BON SCORE": GOTO 1330 
300 IF C < 21 THEN PRINT "C'ES 

I UN SCORE HOYEN"! GOTO 1330 

310 IF C < 26 THEN PRINT "C'ES 
T UN SCORE MEDIOCRE": GOTO 1 
330 

J20 PRINT "CTST UN DIEN MAUVAI 
S SCORE" 

•..to FOR I - 1 TO 20001 NEXT I 

333 VTAB 23l INPUT " V0ULEZ-V0U3 
JOUER ■•(0/N) --> "|A 



340 IF 



..'!■ 



GOTO ' 
HOME i 
HOME I 



LEFT* 



THEN 



TO 1000: NEXT 



330 TEXT : HOME I VTAB 10 

540 HTAB Si PRINT "VOS TIRS NOM 

BREUX ET PEU PRECIS" 
560 PRINT i HTAB 3i PRINT "VOUS 
DNT FAIT REPERER PAR L'ENNE 



MI" 

PRINT : HTAB lOi 
VOUS A DETRUIT" 
GOTO 1330 



PRINT "OUI 



suite de la page 7 



+ 




9253 LPRINT 


TAB<7B)"P**» "iPOiLPRINT 




S2EB LPRINT 


CHR«<l&)ii ' cod* doubl* i«rv»ur A «DiDt*r. 




927H LPHINT 


TOB'IB) :"DESTION DE COMPTE BBNCOIRE" 




929« LPRINT 


CHR»ua>i!LPRINT TAB' IB) !STfltNG»'2£. ■-") 




93BB LPRINT 


LPRINT 




9310 IF H-l 


THEN LPRINT ThB'3B)"FICHIER PRINCIPAL" ELSE 




3fJ)"FICHIEB 


SECONDOIRE" 




9328 LPRINT 


LPPINT 




9333 LPRINT 


9TRING»<e0. "-">| 




8343 LPRINT 


" 'Nu«' Dat* ' Montint • S^ld» 'Form 


• '0»ij 



3330 LPRINT STRING*'80. ,, - ,, >l ' 

9360 BL-B 

9I7B OET iW.T ' itaur* d' or, *nr*9 . st r#m#r.t 

93BB L*-INKEY»MF L«»"3" THEN 1000 

939B BL-BL*1MF BDNL-IE THEN BL-Bl PG-PO+ 1 1 

NO*'80."-")iLPRINTiLPRINT:COTD 9233 

9/.00 IF W-l THEN L5ET 8D«-NR*i LSET i» t I :>*■■ LSET BF*«DE*i 

*i LSET BH4-M04! LSET 8I»-LI» 

94IB LPRINT i:LPRINT USIND"»HII" ; T I I LPRINT 1B04I" '"I 

9fc20 S-VOL'BH«) HP BD«- , 'DEBIT " THEN S-- S 

963B LPRINT USING "»«»«•■». *•" tBl ILPRINT I 

941B 5T-9T+S 

9438 LPRINT USING"«-»"*»»#."#"tSriiLPRINr t BE«l " • " lDF»l " ' " I " ■ 

946B IF (W-l AND T<U8> OR < W-2 AND T(UC) THEN T-T+l tOOTO 9370 
9470 LPRINT STRINGt'EB. "-"> 
9460 GOTO I0B0 

1BB0B ■ 

IBB10 ' CUHSEUR CLIONOTONT 

1B02B • 

I0B3O PRINT3TU.CHR»(1&3) I 

IB0/.0 FOR U-l TO 301 I*-INKEY*HF !•--" THEN NEXT U 
3TU. ". "11 RETURN 

10030 IF TR-1 THEN.PRINTasei. 3B-PEEK' *H40Iil )t i 

40i.l>-29 THEN PRINT3994." "t 



LPRINT 5TR1 
LSET 904 "Dfl 



ELSE PRINT 
IF P£EK(*M 



10B&0 PHINTaiU. M . "I 

1BB70 FOR U-l TO 30: I »- INKEY*: IF I»»"" THEN NEXT 

3TU, ". "uRETURN 

1BB80 IF TR-1 THEN PRI NT3983. 30-PEEK( SH404 I ) i > 

6B41>"29 THEN PRINT399S, " "I 

10090 IF TR-1 THEN IF PEEK (. «HCi0(U ) > 29 THEN GOTO : 

1B100 GOTO 10B30 



130IB 
1502B 
13030 
130&B 
1505B 
15060 
13070 



ELSE PRINT 
IF PEEKCSH 



• DESTRUCTION PROGRAMME ET FICHIER 

CLS 

'KILL "FICHPRIN/FIC":KI'LL "F ICHSECO/F IC" 

•PRINT3600. "FICHIER ET PRODROMME DETRUITS" 

• NEW 
CMD'-S 

DEFINITION DES CHOINES GRhPHICHJES 



20010 ' 

2802B - 

2083B O»fl)-"USINGE;eTSETSnsr:TENDUSINDrDNTCf!NTr.ETSETEN!)ljr.!N0f;ONTr;aNICONTr:ONTENDa 

ETSETUSINGflETSETENDUSINGENDUSINOQETSETGETUSINGENDUSINGLFiroeFENDUSIND" 

;--flfl/.B nti ;■'■ "ii^i.'iniii.f in i i:nNnj'-ji Mfiruni p-: i MiiTu i im i ni i 1..11 t nddi ■ uh in i m i ii'.inci mdi ndi 

NDUSINOeNDENRENDUr.INnrNnU'lIMnDEFm-rDf KU'jInr J F.rj[)U:;lNi:;r.NOnNDnCTUStNQ" 

20830 0*(3)="USlNGSF.TSF.T';ETTnF3(F.NI)Lj;,[NGCONTCnNT'irTr,rl ■■■ 

280E0 n«'1)-"USINGDCFDI HX.I III NDDS 1 NnOEFDEFOEFDEF" 

. IH1/H it*i ', i -"U'; I MUM IS! I'-.l I'.l VI Nnu^INHSF T'.l 1'il- 111 1 ; I NCI nDII'.INi.: il 1)1 F I I IUSINGI NDU'il 

NGCONTCONTCONTLETLMr) , :Fr';i:TUSINr,SrTr > rrrNDU t !INC,Cf)NTCONTGETr,Cr 

,-si0i:0 n*i f.> ■ ,, ii':ini-,di: run- [4 i urn ndusinhdi f-di f di i-iimmi,i ndi i'-. i mc.i urn um ndui.ingi noiji.i 

NGEMDENDENm NNiTJrir .NDI n\,W. I rir.l NDflNDrNDIJI INGDCF DITDtrDCr 

2B09B n«r-7)-"u5lNr.f:nNTC[iNTr.0NTi ffTENDUSINOCONTCONTCONTUBINOI ndusini.i p.tdi I IMIHI'.INi; 

rNDUSINGSETSFTSETGCllNDII'.INGr.IlNrrONT^nNTur.INGrNnir.INGINDUSrNGCONTCONTr.nNII i.lLNDU 
filNCCONTCONTGETSET" 

.-■Hllflll (1*1 III ■"IJ'-lltinW l|il I 1)1 I II IT)[)1I',IMI,I Mill NDI Nl)ir;l'il"rl IJ[IIJf;iM[if NDI Nil',! MI'.INM NDLIMN 

GDFFDrFDEFDCFENDUr.INGrNDrNDFNDUr.INGFNDUGINGENDUr,INOENnr.rTl-ETDErENDU!iINOOSn)CroeF 

DEF" 

2tl 18 RETURN 

59008 ' 

30010 ■ TROITEMENT DU KRMUftfl DI PRnOHAHME 

S8B2B ■ 

30030 IF ERR/;.»1-34 fiND FH1.-&910 THEN RESUME NEXT 

S0033 TF ERR/2+1-33 OND ERL-F.900 THEN RESUflE NEXT 

580/.a LI -. 

5B030 PRINI3/.SB. "*+* ERREUR <" lERR/2* 1 I ") LA LIONE C'lCHLl "> *•*" 

seeee prints'jf^. -prcsgc/ ifnter) pour continuer. m 

38878 I*-INKEY»HF I*-"" THEN 38870 ELBE IF h3C(I»)C>13 THEN 5(1078 

S8888 CMD"S" 



<• 



DEFIMATH 



Le programme DERMATH est destine a I'apprentissage 
dans les classes du premier cycle des colleges des regies 
du calcul algebrique. 

Le calcul mathematique de 1 + 2 * 3 donne 7. 
En effet, I est obligatoire de calculer les multiplications 
avant de faire les additions. 

Dans I'exemple cite, la tendance naturelle aurait ete de 
faire 1 + 2 egal 3, puis 3 * 3 et trouver 9, ce qui est faux. 
Le but du jeu est done de parcourir une grille remplie de 
chrffres et d'operations, pourobtenir le resultat demande. 
Vous vous deplacez en appuyant sur 6vers le bas et 8 vers 
la droite. recommence le calcul. 
Meme si vous n'etes plus au college, ce programme vous 
fera rapidement progresser en calcul mental. 
Ne vous decouragez pas au debut, ce jeu est effective- 
ment difficile. Mais les progres sont a la hauteur des ef- 
forts foumis. 



SP 



ECTPAi^ 



1 BORDER B PRPKR INK 7 
3 POKE 236«a,15a: RANDOMIZE 
3 CLCftH : CLS : 00 TO IB 
* DATA 11,11. 13, 14, 14, IS, ll.i 
11^8,9,11,11, 12,14,1* 




2 • ft ♦ 3 

* 1 * 1 * 

4 ♦ 1 - 9 

- 9 • 3 - 

4*8*5 

2 

uoi ,-• total est it a 

VOUS 4(V«Z trouver 38 



Patrick TADEUZ 



12,11,9,7,7,4,; 

S >*0R i »0 TO 50: BEEP .01,58- 
> NEXT i : RETURN OEM ptl"<Ju 

ft fOd i »0 TO 5«- 8EEP .01, i 
NEXT i ; RETURN : REM 949m 

7 RESTORE 4: POR id TO 38: R 
EADn. BEEP .1,0; NEXT i: RETURN 

O REH -*i#jDEFSMIJKLMNORCRSTU 

19 rem critnon d« t'opcrstion 

20 DIH 0«I4,4) 

30 LET 0«tl> ■"*•♦•" 

40 LET ojiii »"**»*■• 

50 LET Oil]) «■■♦.♦_" 

60 LET % (4j .■* + *-■ 

70 DIM MiS) 

00 POR I.1T0 5 

90 LET Ulil.iTRi INT (RND*10+ 
1) 

100 NEXT 

105 LET 1 
■••(II 

110 FOR i «2 TO 5 

120 LET e».C«*0»(U,i-l) +*»(l) 

130 NEXT 1 

140 LET da-C4.*"a"+STRf VRL it 

1*5 IF VRL C»<0 TMEN 00 TO 19 

290 REM cnition gout 
210 DIM g % (5,5) 

215 TOR i"l TO 5: FOR j«l TO 5: 
LET g* ( j . j) --a- ■ NEXT j: NEXT i 
220 LET X.l; LET y-1 
2*0 FOR i *1 TO 9 
250 LET 9 » (' ,W) •d«(i ) 
260 IF RNOx.E RND X <S THeN LET 
/•y+i: CO TO 278 

279 IF y.(8 TMEN LET y-y + 1: GO T 
278 
272 LET x«X*l 



295 LET CO-0 

300 REM nip ummi 

301 SO SU8 3099 
305 LET H.-M-- 
319 FOR 1*1 TO 8 
330 FOR ]>1 TO 8 

339 IF <ji(i , J) «>"«" TMEN GOTO 
370 

3*9 IF INT [ ij . j] /2) - ( 1 .j 1 /a ( -a 

TMEN LET 9 I ( i > J 1 •» • ( I NT lRND»3« 

11 ) : 00 TO 370 

359 LET 9«(i,J)-STRfl INT (RND*9 



♦ I) 
379 PRINT RT 3» 



PRPER 7; 



-INT 1RN0»4>*1: LET C9 



399 NEXT l! 

499 PRINT RT 29,8, PRPER 2; INK 

ft;"vog* d«v«z trouvtr " ,vt\L cf 

419 DRTft 9,4,3,251,2,4,9,9,5,0. 
9.6,8.34,29,6,285,288,355,388,25 
5.358,258,388 

415 RESTORE 419 

439 FOR i .0 TO 33 

439 RERO J) POKE USA ■«-♦! .J 

449 NEXT £ 

469 REM dfbut JOUtur 

483 IF C0>33 TMEN PRINT RT 29,5 

; PRPER 9; ink 7;" ct»i psrdu 
....": CO SUB 5: GO SU8 3999: RU 
N 

465 PRINT RT 31,9; PAPER 3,qti 
TO 31-CO) 
478 LET Kali LET y»l 

480 LET fi-g.d.l) : LET ri-URL 



485 PAINT RT 3 * 1 . > u , INK Si O 1 

ER l;"i" 

500 LET ««-lNKEY»: LET ;o.<o.. 

5 
592 PRINT RT 21,31-C0; " " 
508 IF ••-"9" TMEN 00 TO 390 
810 IF «»-"5" RNO X(3 TMEN CO 

UB 8899 



539 IF t»--8" RNO V<B THEN 00 S 

333 PRINT RT }n ,3»y J SCREEN) (3 

327*|SaInT RT 18,23. '• 

838 PAINT RT 18 , 19. "UO t ft t&t*l 

•»l *« ";f| 

539 IF rt.uflL (I ANO x*y>35 TnE 

N PRINT AT 39,5. PR*>ER 1. INK B. 
Br«VO,vout 4v*t ; 1 j ■ * . OO 8 

UB 7: 60 SU8 3999 RUN 

840 if coi33 then print rt 30. s 

. PCPSO 9, INK 7; " «'•»( P * - i _■ 

•■•■"• go sua 6 co sua 3000 ru 

559 IF ft OVAL Cf. RNO ■ t , - ; - TM 

EN GO SUB 5 00 TO 399 

599 GO TO 599 
2909 PRINT RT 21,0, PAPER 4, INK 

0;"L* solution tint : ,dt 

2095 IF INKEY(«'-- THEN 00 TO 299 
9 

2019 RETURN 

3999 CLS 

3919 FOR i-1 TO 17 

3020 PRINT RT 1,1; POPEA 4, " 

3040 

3069 
B990 

nil 

8010 
8020 
6030 
8049 

iiti 

8059 
8100 

6191 
8110 
8130 
8130 
8140 

Biti 

8iS0 



NEXT t 

RETURN 

PRINT PT 3.K*l,3»y.'-l" 

PAINT RT 3*K*a,3*v;"i" 

LET XnX*l 

BEEP .1,20 

LET f t"(«*9« (* 



CODE flii.v) >*! ANO CODE 
.■j) (56 TMEN LET f« " — 
RETURN 



■UAL 



PRINT RT 3»X ,3*u, 
PRINT AT 3«x ,3»y 
LET v-.y.l 
BEEP .1,11 

LET " 



T U"'f;l ,v> 

CODE 9«(x.y)>46 RNO CODE 
,yl i38 TmEN LET rc-UAL It 
RETURN 



PHOBIA 



Ce programme revet un certain interet du point de vue de 
la programmation : celle-ci esttres facile. Vous pouvezuti- 
liserun synthetiseur de paroles, accelerer le deroulement 
du jeu en jouant sur les tests.mais ceux-ci seront moins 
precis. Le programme est ecrit en anglais, a cause du syn- 
thetiseur de paroles. 

Le but du jeu est de toucher les deux cibles jaunes dispo- 
sees en haut de fa tour. II faut eviter les enclumes bleues et 
les obstacles verts, qui sont disposes au hasard et aug- 
mented en nombre au fur et a mesure de la progression 
du jeu. 
Utilisezte joystick 1. 

Stephane BONAZZA 




T\-9 9 



4/A 



10 CALL MAGNJFV!I):i RECORD- 10OOOO0O0 
20 00STPLUS-2O :: OBSTMOINS-IO 
Z'J CflU- CLEAR : : GOTO 970 
40 CALL CLEAR 

50 REM DEFINITION DES LIBNES DU RECTANGLES 
Wj CALL CMAR<V7.-lBISlBlHlBlB19iaFFOOOOOOOOOOOOOO") 
70 REM CAflAC DE55IN 

80 CALL CMAR(96.-FF7E3CIB1B3C7EFF-) 
TO CALL CHAR(104.-|B99FF3D3J;;C2424-) 

IOO t:«_L CHAft!I13."'-.103O70FlF3F7FFFBOCOEOF0FBFCFEFFFFFFFFFFFFFFFFFF"» 
110 CALL CHARfl2O,-0O0OOBIFF8IO0OO0-): : CALL CHAR 1 1 23, "A5A3A5ASA5A3ASA5" t 

'■ REM REDEFINITION DES CHIFFRES 
! JO CALL CMARf43.-':''rf r i-:BEOf:8t:(JEaEFEO'j3a3B]eiBlBia7E'XJ7EOF:OEFEeOBOFE'JOFC<iC'JCFEOEOE 
FE") 

11" CALL CMAR<52. ,, 0'.'a0BflB4FE'>i:oC0C'>0FCB0B0FEC>e0£FE0'>FCG480B'>FE8EFE00FE86060C0C0C 
"C-i 

I7i CALL CHAR(56, -0O7C4444FEC6CtFE'XjFE8EI EOfcOftlA/E") 
\M • DE^SIN DE LA TOUR 
170 CAIL MCHAft<24, 1. 11%, 111; : CALL NCHAR (23. Z, 1 I Z) : '. CALL HCHAR<23,4, 1 13) i : CALL 

MCHAR12I, 14,114):: CALL HCHAA (23. 1 Z. 1 IS) 
IO« CALL VCMAR1S.4, 128, 10) :: CALL VCMAR '. 5. I Z. ! 7H. lai : : CALL VCHAR 1 Z, 4. I 1 3) : : CAL 
L UOMRO, 13. 1 141 

11'J CALL HCMAR(4.4. I 1Z.. 1'J) :: CALL HCNAR(3,5. 1 IS. 8) f I CAM HCMAR (2, h, I 1 3) : : CALL 
VtMftft<2.11. 114) :: CALL HCHAft(2. 7. 1 15.4) 
200 CALL HCMARM.B. I 13):: CALL MCHAft ! 1 , 9. 1 14) 

210 CALL SCREEN (2) :: CALL COL OFr '. '■> . f, , I , IO, lb, 1 . 1 1 . 1". I . I 2. 4. 1 . I Z, 12, 1 . 14, 12, 10) 
220 FOR 1-2 TO B : I CM I CO Of (1,14, I) t I NEXT I 
7.ZJJ CALL CHAft'13&. ■•914A34HA^Dl'C52a'?■') 
240 CALL CHAft(i;a."7F.'»9BDe7E/BD997E-) 
230 L*4_l_ HCHAft(4,B, I3H.2) 

:/,■, REM MUStotJE 

270 FW ROD -1 rr. 4 

.'Bv cai i. 90LMO<200, 262,0) 

290 CALL BOUND ( 10© . Z'iy.") 

JOO CALL. SOUNDdS'). 323, 0,639. 

310 CALL SOUND <200'*Z77 a 01 

S20 CMJ 90UND<lOO,372,0) 

530 CALL SOUND! ISO, 354,0, (,3V, 

340 CALL SOUND (200,294.0) 

'.30 CALL BOUND !!'■•,. "<;. 01 

ZhO CALL S0UND(I30,3a7,O.(,9B,M) 

170 CALL SOUND (2DO. 196. O) 

3BO CALL SOUND 'IOO. [92, 0) 

390 CALL S0UND(130. 494. •<.-,!(/."> 

400 NEXT ROCK 

«IO CALL VCHARCI, 19,97. 201 i i CALL VCHARI t ,33,97,20 

420 CALL MCMAR(l,2O,70, 12) 

430 CALL HCHARI21. 20,90,121 

140 VIES- 3 



**%**>" 



ooaiiB ioio 



: DIBI i '•' <•' I'-'--'. I'll : "I. II I : ■ 
CALL VCHAR43.UNE, 32, IS) It 



460 DISPLAY AT(24, IB) :"TIME:-l I 

THEN 690 

4/0 CALL EFF !: TOR HNE-3 TO 12 

4BO RANDOMIZE 

470 call BPRITEtil, 101.16.177,11 

300 CALL SPRITE(»2,96.6, ZZ. INI ( 

310 CALL Sf-RITEIB4,96.6.33. INI ( (BB-33-M I 'XNln • r',) 
320 CALL SPRITE (43. 96. 6. J3. INT( ( 88-394- 1 ) vflND) - S3) 
330 CALL SPRITE [96,96,6, 13, INT I £88- 13*1 l«RNDI • 15) 

-.40 • RLfCEMENir; de:; ousiaq.es 

330 FOR 1-1 TO INr((OBSTPLUQ-UtlSIMClINS*l i •PNIji 8TMI 

360 CALL MCHAft'INl t 122-6* I I »RND>+6. INT! (12-3*1 > »8ND1 I 

370 NEXT I 

380 FOR 1-2 TO 6 i I CAI L nrj I 1 1 IN ' » 1 . I N I I ' 1 ' 2*t»»«NDH 



fi ■■■■ i ■ HMD) • 



CALL DC 

: CALL 



590 CALL JOYSTC1.X.Y)-: CALL MOTION !«1 , -V, X) ■ . CALL POSI TION(»l ,PM. PV) i 

HAR(INTIPM/e>-l.INT(PV/8)*l.PIC):s IF PIC032 TMEN 630 

600 DISPLAY AT!24,23) :TI+1 M TI-TI»l 

610 CALL COINCI«l. 42,7,3) : I CALL COINC (•! ,43. 7. T> : : CALL COINCIMl . 44, 7.E ) , 

C0INC!41,«3,7,P):! CALL COINC 141 , 46, 7. HI 
620 IF S — 1 OR T — I OR E— 1 OR P — 1 OR H— I TMEN 630 tl CALL POSITION (42, PI .P2H 
: M-2 :: GOSUB 670 :: CALL POSI TION 143, PI , P2> i : W-3 :: GOSUB 670 

630 CALL POSITION(44,Pl,P2) :: N»4 :: GOSUB 670 t: CALL POSITION !*3, Pi P2ln W-3 
:: GOSUB 670 :: CALL POSIT ION (46.P1 ,P2) t : N-6 i: GOSUB 670 
640 GOTO 390 

630 TF PIC-136 THEN 790 ELSE CALL MOT I0NI41 .0.0) : ! CALL PATTERN (• 1 . 1361 : i CALL D 
ELSPRITE!42,43.»4,43,»6): : CALL SOUND (-lOOO. -4,3) 
660 UIES-VIES-1 it GOTO 430 

670 IF P1>192 OR PKI THEN CALL DELSPRI TE (4W) : t CALL SPRITE (4H, 96. 6, 53. INT ( IBB-3 
3*1)»RND)*33. INT! ( 13-2*1 ) «RND) *2,0) 
6B0 RETURN 
690 REM FIN DEPARTIE 

700 CALL CLEAR t: CALL DELSPRI TE (ALL 1 
7IO CALL MAGNIFY(2) 

720 CALL SPRITE (410, 104, 12, 10. I .0,30, • 1 1 . 104, 1 3, 10. I 1 ,0. 30. 412, 104, 1 4, 10.21 ,0.30 
,413, 104.13, IO, 31,0, 30) 
730 CALL SAY<"THEl»GAMES*ARE*OV£R. I *THINK*YOU*WANT*T0*PLAY*AGAIN" ) 

740 DISPLAY AT (23, lit" -EN ILK TO REPLAY- 

730 DISPLAY AT!I2. 121: -GAME OVER" I! FOR STRE-1 TO IOO :: NEXT 8TRE II DISPLAY A 

T(12,12>:- ■' :: FOR STRE-1 TO IOO II NEXT STRE 

760 CALL KEYiO.K.S): t IF S-0 THEN 730 :: IF K-13 THEN 770 ELSE 780 

770 CALL DELSPRITE(ALL)! I RUN 

7B0 CALL SAY(-4GO0DBYE4-)tl CALL CLEAR n CALL DELSPRI TE (ALL) I : CALL CHARSET it 

END 

790 REM LE JDUEUR GAGNE 

BOO CALL DELSPRITE(ALL) 

BIO VIES-VIES*! It OBSTPLUS-OBSTPLUS*! It OBSTMOINS-OBSTMOINS* 1 

B20 IF TKRECORD THEN RECORD-TI tt DISPLAY AT (2, IB)5I ZE ( 1 1 > BEEPi "HIGH SCOREt" tl 

DISPLAY AT(6, 1B1SIZE1I DtRECORD 
830 FOR 1-1 TO 300 tl NEXT I t: CALL EFF 

S40 CALL EFF it DISPLAY AT ( 10, I8)SI ZE ( I 1 ) t - YOU WIN" 

S30 CALL DELSPRITEIALL)! t CALL SAYI-4Y0U NIN4.THEN 4TRY AGAINK'BUT* I T * I5'LESS'AN 
D»LESS*E*THE"> 
860 GOTO 430 
870 REM PRESENTATION 
BBO RANDOMIZE 
890 CALL SCREEN(2) 

900 CALL SAY(-HELL*C0ME*TO*Y0U") 

910 FOR 1-2 TO 11 II CALL COLOR! 1 , 16, 1 1 1 I NEXT I II DISPLAY AT.4, 7) BCEPl "8TCPHAN 
E BONAZZA" 
920 FOR l-I TO 100 tl NEXT I tt DISPLAY AT(B.71t" PRESENTS'* it FOR I-l TO IOO 

:: NEXT I 



940 CALL MAGNIFY!2)i: FOR I-l TO 6 tt READ PR, PRLIG, PRPOS :t CALL SPRI T[ i ■ I . r« :. I 


NT! ( 


6-3M I'ftNhl * T.PR1 IG.I-RPOS) t! NEXT I 


950 FOR I-l TO 10 


960 


"OR Z-l TO 6 


9/0 CALL CDLGRI4Z. INT(!I6-3) ->RNO) »3) t : NEXT I tt NEXT I 


9HO 


"OR I-l TO 3 II CALL MAGNIFY (1 ) :: FOR NATH-I TO IOO :i NE X I NAIM tl CALL MAG 




:■<:; FOfi NATH-I TO IOO :: NEXT HATH M NEXT I 


990 




1 1 


CALL DELSPRI TE (ALL) !i CALL CLEAR :: LULL CHftRSE T -. : LALI HHUNH-riUtl COTO 




1020 


FOR DELAY-I TO SOO :: NEXT DELAY tl CALL EFF 


IO40 


DISPLAY ATC2,IB>5IZE!1I)!"DD YOU WAHI" t: DISPLAY AI (4. IB) SI ZE ( \<» : " I "I Mil 


CALL KEV(0#K,S)II IF S-O THIN 1040 :: 11 1 -ASC ( "N" ) THEN «4<1 M II 1 A8I 




-t IOSO ELSE 1040 


1 ■ * ■ 


CALL EFF t: DISPLAY AT (2. IB) SI ZE ( 10) : " RULE" tl DISPLAY AT ( 3. 1 0)51 ZE ( 1 Oi 


IO60 


DISPLAY AT(4, I8)SIZE(I2I: "10 REACH" :: DISPLAY AT (6, 1BI8IZE ( 121 1 "THE !AI((,I.1 


!■■/■■ 


DISPLAY AT (8. 18)5IZEt 12)1 "AVOIDING ■ 


1..I- 


DI8PI AV AT (10. IB18IZEU21) 'The mahi"' : : DISPl AY oi . i . ■. i n . ■. i .'i < I . ' i 'Dl 1 ' 1 1 ■> H 




DISPLAY AT(14,181BIZ£<12) c-HUfttt E8. ■ 


1091 


DISPl AV AT 1 lb, IB) SIZE! 12)1 "GOOD LUO . " 


■ too 


FOR I-l TO 1300 :t NEX1 1 : t CAU BFI : ■■ D18M AY AT (2. IB) SI 11 111 't"YOU Ml OH 




DISPLAY AT(4. IBI9IZEII 1 1 : 'I'l LUCKY" 


i t i" 


IiISF'LAY AT(A.1BISIZE!MI:"WHFN YOU' 1 : : 1) I !.F I ..tt ' AI •<>, 111. ■. 1 ."I i 1 1 i t "ML t 1 il" 


iiit.,. (.1 i 10, 181 i "HURDLE." 


i 120 


POR l-i rn 1000 II NEXT I tl CALL EfrF 


t I 10 


FOR I-l TO 2000 :i HOT 1 :i i Al I EFI II DISP1 M AT (2. lit it 18 * 1 




lIBPI AY '■'■■•. 18)81 ,'i Il2)i "1 IBTI tj ID" 


t |4< 


DISPLAY AT (6. IB) 81 Zl 1 12)1 " 'Hi I I99/4A." 


11'-" 


WMI l. LO. I*AM.THH an XA8 INBTRUNI NTSt CO" INI I»ARI IAI A 




. BTART8.VOU4U8B+THE14J0YB1 ICI • nifmi-i !•• ON . 




1 AI 1 I ' F 


i i ■■■ 


i | il-. ii 


1 ID" 


iUB EFI : i FOB L INLI --.■•> tO 31 it lam VCHAR<2,LlN6f. 8*1 



SOLUTION DE L'HIPPOREBUS : 

10 FOR 1=1 TO 9 

20 READ X 

30 PRINT CHR$(X); 

40 NEXT I 

50 END 

60 DATA 67,69,78,84, 

82,79,78,73, 

67 



19 



LE LOGICIEL 

DE LA SEMAINE 

Le chateau du diable 

... sur ORIC 1 et ATMOS 





Que ceux qui ne sont pas des fer- 
venls des jeux de rdle et des jeux 
d'aventure arretent immediate- 
merit de lire cette rubrique ! Elle 
nest pas poureux 
Maintenant que nous sommes 
efflre nous, avouez franchement : 
les jeux de rdle. c'est bien. mais 
c'est long, complique. et une tois 
qu'on a etabli le plan du decor, il 
ne reste plus grand chose a taire. 
Et puis quand on entre une com- 
mande. on a largement le temps 
d'aller torturer rauteur du logiciel 
pour qu'iJ avoue ou est cache le 
tresor. Et puis les graphisrnes ne 
sont pas toujours bons. Et puis les 
commandes sont quelquefois dif- 
ficiles a rentrer. Et puis parfois, il 
n*y a pas de graphisrnes du tout. 
Et puis. . 

Et puis il y a le Chateau du diable. 
37 Ko de memoire. des graphis- 
rnes formidaoles. avec de I'anima- 
tron (si !) une profusion de pieces 
(je n'ai pas reussi a lescompter. Et 
pourtant j'ai joue '.) qui changenf 
de place, des pieces fermees a 
cle. (a propos, la cle est la seule 
chose qui soit toujours a !a meme 
place. Entrez dans le chateau. 



troisieme a gauche... oh, et puis 
trouvez-la vous-meme !) et dans 
ces pieces, des araignees gean- 
tes, des fioles, des serpents, des 
tetes de mort. des sortileges, et 
plein d'autres choses. Les rats ne 
sont pas mechants, ils se conten- 
teitdefuiravotreapproche.mais 
prenez garde aux feux follets ; ils 
vous immobilisent ! 
Une tois trouve le tresor, il vous 
faudra ressortir. Mais dans ce 
chateau, il y a un rez-de-chaus- 
see. deux etages. des donjons et 
des catacombes. et en plus des 
oubliettes ! Heureusement que 
vous pouvez vous diriger avec les 
fleches du clavier ! Finis les ordres 
du style Tnonter escalier". "aller 
haut", "up" ou "H" ! 
A noteraussi quecontrairement a 
d'autres, les dessins sont en situa- 
tion reelle. C'est a dire qu'ici, ou 
que vous soyez dans une piece 
vous la voyez de I'endroit ou vous 
vous tenez. 

Que dire d'autre ? Sinon que c'est 
Hebdogiciel qui I'edite. bien sur. 
En anglais, on appelle ca "setting 
a new standard". 

Michel DESANGLES 



rjOT 
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PETITES ANNONCES 
GRATUITES 



Vds imprimante matricielle Loga- 
bax LX60. entrainement continu 
Caroll + 200 feuilles de papier, 
elat neuf, valeur ; 5000 F, cedee ; 
2200 F (1/82). Ditferents cordons 
pour imprimante (Sanyo, TRS-80. 
CBM,...) jamais servis. prix ; 200 F 
piece. Tel. : 520.98.65 

Vends CANON X-07 neuf + ali- 
mentation + livres de program- 
mation - Prix 1.800 F G. Garoufa- 
lakis, 70, rue du Javelot, Paris 
75013, Tel. : (apres 18 h) 
583.37.85 

Ch. Progs PH199 BE et BS sur heb- 
dogiciel n° la 18+ modules Tl-En- 
vaders, echecs. Meiller Gilbert. 
Race Grenette. 38510 Morestel, 
Tel. : (74) 80.35.38. 

Vds Interface manettes de Jeu 
pour ZX 81 jamais servie 1 50 F Tel. 
(76)31.64.07 

Vends Atari 2600 (12/83). Prix : 
900 F F Crepin, 3. altee Boris Vian. 
93380 Pierrefitte. Tel, : 827.87.22 
Vends : Recepteur Marc NR82-F1 
(garantis) GO PO 4-OC 5-VHF 
UHF- 2400 F (ou echangecontre 
TRS-80 Mod. 3 ou autre materiel 
faireoffre):PC2 + CE150 + CE155 
+ 3 livres (PC1 500) - 3500 F : Ca- 
pacimelre BK-820 - 1100 F ; Ge- 
nerates HFLeader- 800F : Con- 
troleur de transistors Pantec — 
1 50 F : Canon EF= 1 500 F : Objec- 
tif Canon 14/17+1 filtre - 2000 F : 
Zoom Soligorf 5/6 100-300 + 1 fil- 
tre — 900 F : Projecteur de diapo- 
sitives Rollei P360 autofocus 
(250 W) - 1000 F : 9 Lampes (neu- 
ves) 250 W pour projecteur — 
500 F : Echange 4 boites de 100 
feuilles papier photo (noir et 
blanc) 13/18 contre 4 Peloches 
diapos Ektachrom 200 ASA 36 
poses : Tel. (6) 949. 18.94. M. Bre- 
ton Christian. 

Vends T199/4A, dec. 83 sous ga- 
rantie. Prise Peritel. Cable magne- 
to. Manettes jeu. Basic etendu. 
Gestion fichier. echecs. Munch- 
man Alain : 525.34. 1 8 (Paris) 



Vends ZX81 + memoire 64 Ko + 
extension carte sonore + carte 
semi-graphique + TV video NIB 
27 cm + clavier mecanique A 
I.L.S. dans un seul pupitre + mon- 
tages personnel (programmateur 
de 2716...) + Irvres + cassettes 
(utilitaires et jeux) + schemas + ... 
2500 F M. Pelletan Jacques, (heu- 
res bureau). Tel. : 346.30.95. 

Vends programmes Oric-1 et At- 
mos moitie prix. Liste et prix con- 
tre enveloppe timbree. M. Partiot, 
43, av. de la Republique, 94100 
Saint-Maur 

Vends pour Tl 99/4A mini memoi- 
re. Prix 400 F livres (Jeux et pro- 
grammes) prix a debattre.M. Bie- 
liauskas. Kremlin-Sicetre. Tet. : 
726.43.76. {apres 18 h). 

Vends Livres : Jeux sur Oric & 30 
programmes pour tous sur ORIC. 
50 Fpiece. Garrabos Philippe cite 
Maurice Thorez Bl. 34. appt 406, 
33130 Begles (56) 85.26.37 

Vends Casio PS 700 + 4 KO (12/ 

83) (valeurs 2100 F) Vendu 

1800F 

S. Rigou 47. av. de la Paix. 94260 

Fresnes Tel : 237.99.39 

Vds Oric 1 48 K (s/s Garantie) + 
Periel + 4 HF N/B + Livres 8 Nbrs 
progr. dont Xenon, Dr Genius, In- 
vadeurs. Calcoric.) : 2300 F De- 
mander Olivier au 797.20.12. 
apres 20 h. 

Vends Interface C.G.V PHS 60 
avec regulateurde tension : 300 F. 
Verbeque Yves. 25. rue Albert 
Meunier 95330 Domont. Tel. : 
991.46.63 

Achete module Basic Etendu + 
Manuel d'utilisation. 
Christophe Besnard (35) 
87.72.58 Cidex 28-13, 27670 
Saint-Ouen-du-Tilleul 

Vends Imprimante OKI 80 etat 
neuf + ruban neuf. 1900 F P. Bou- 
tier. Tel. : (1) 252.76.26, 



Vends TI-99/4A 1000 F + Basic 
etendu (et programmes) 2000 F + 
mini-memoire 2000 F ou te tool 
pour 4500 F. M. Michel (96) 
84 69.79 (apres 18 h) 

Vends memo 7 "pic tor" pour 
Thomson T07 deianvier 1984. 300 

F Christophe Durand, Le Bourg 
Pretreville 14140 Lrvarot. Tet : 
32.34 45 

Vds T07 + Memo 7 Basic + lecteur 
enregistreurs de programmes + 
Extension 16 K + livres + K7 de 
gestions, education et jeux pour 
5000 F La Trinite sur Mer 56000 
Tel. : 16 (97) 55. 13.05. 

Vends : 150 F, 24 revues d'lnforma- 
tique (tres recentes) etat neuf. Va- 
leur 470 F Tel. : Francois Cambon 
(1) 885.89.66 le soir apres 19 H. et 
le Week end. 

Vends Dragon 32 (6783) + 70 Su- 
per programmes pour 2700 F 
Ecrire A : Eric Vattebled, 27. rue 
Henry Delaunay. 605600rry la Vi- 
le. Tel. : 16(4)458.90.51. 
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La Regie a Calcul 

sort pour le V'juin une extension memoire 32 K 

exterieure memoire 32 K exterieure pour la console Tl 99/4. 

Avec 48 K ram, vous allez realiser 

des programmes plus performants, 

utiliser le logo II (en franca is), 

outil indispensable a I'eveil informatique des eleves. 
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CONSOLES ET ACCESSOIRES : 



Meiir SECAM FrjrKC 

rSECAMKJt' 
MOOUateUf SECAM GH 

n "v<]new-(. 
fart martetin jeu' 
M^)nWo-ed5«ti« tomp.rw.ie 

MagnetO-ta'.iettei compviI'Dle 
■PROGRAMMATION SUR DISQUETTE5 : 

Cmxc P (ode |n«ev. P.«v.ii| 
■UCSDRT....'fC'- J m r „;-.r 
•UCSUPa-,tai Linker 
•UCSDRnrjl Editor 
■|mprim,inle fl r n/t pM <enlroru» 
'fKtvrt <l'Mlt*uei 
"AxJp.i f.ip")gf.inim,i(ion2 
■Aide A la program/nation 3 
■ 

' O teutdu 

•Rftnwnce d« nHKfrnui 

'Muthtrruaiqun 

'N B il rA OtoeOMrt <lv ptrtt^dpr 

ie txnwt trntenaon php 1200 « 
ItconMlwrdtdHaifiHspiui rurttt 

■ :•■'•, iqufl 



OTCAMSAHON 

■ ...- r, r. !.. I. . i 

QciDOn 'jpporii 



■! ..,-■ Il ■ I |jH,/-r- 

MODULES EDUCAnON 

■ ■ . 
AtMOon Jul 
Addiooo Ca n 

■■.'■■ 

'-'' U OlplM •'• 

■I'liit 

Mum Maka 

MODU1ES LOISIRS 










I 800,00 


D 1 


600,00 




600.00 


1 1 


600.00 


i : 


3000.00 


; I 


115.00 


1 1 


206.00 


; 1 


206.00 


: I 


2 30000 


n 


i 290 re) 


n 


3;s.oo 


ii 


175.00 


- i 


252.00 


!.l 



75.00 


a 


375,00 


i : 


J 7 5.00 


1 1 


206,00 


1 ! 


■i 1 5 00 




115.00 


: i 


117.00 




117.00 


: : 


117,00 


■ 


117.00 


1 ! 


117.00 


r : 


117.00 


1 : 


14X00 


: i 


206.00 


ii 


147,00 


n 


252.00 


1 1 



Extension 32 K 
TI-LOGO II 
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PROGRAMMES MAGNARO : 
La |,'...M,Mti<.ri'Tif-Mrx."'. 

DiviwiiH PGCD - PPCM 
PROGRAMMES V1F1 NATHAN : 
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MODULES FUNWARE : 

Rabbit tr?il 

Oi ivinq Dttnon 

Ambulance 
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LA PROMOTION DE LA SEMAINE 
Module* Jeux : 

MuntfHMft ffptour du pirate. 
Hopper. Technique programm.it Ion 
dei Jeux n° 1 et 2 
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